Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Guten Tag Community,
folgendes Problem quält mich
ich habe eine gesamtsummenzeile an oberster stelle die nur summiert wenn in spalte b ein wert steht
spalte b spiegelt das unternehmen
spalte c dann die einzelnen Abteilungen
Nun will ich pro Unternehmen eine eigene Summenzeile haben auf die die gesamtsummenzeile zugreift
Problem ist, dass nur dann in der zeile die summe gebildet werden soll, wenn auch in spalte b ein unternehmensnamen steht
Falls dies nicht der fall ist soll eine einfache eingabe von Zahlenwerten möglich sein
Die summe muss gebildet werden bis zu der zeile (-1) in der in spalte b ein neuer unternehmensname steht
Beispiel:
Gesamtsumme                                    5                   3
Aachner                                               3                  1
                         vertrieb                       1
                         forschung                   2                   1
HP                                                        2                   2
                          verkauf                      2                    2
Ich hoffe das ist halbwegs bildlich... Also gesamtsumme zieht sich nur die werte aus der zeile wo unternehmensnamen stehen
und den VBA Code um die dick markierten Summen zu bilden soll generiert werden.
ich bin damit leider heillos überfordert... ist sowas überhaupt möglich oder verlange ich das unmögliche?
mein bisheriger VBA-Code, der aber keineswegs funktioniert:
Sub SummeWenn_Makro()
Dim IntZeile As Integer
For Each Z In Z.Range("T14:T113")
If Cells(IntZeile, 2) = "" Then
Else
ActiveSheet.Range("T14").FormulaLocal = "=SUMME(T" & 15 & ":T" & 20 & ")"
End If
Next
End Sub