Anzahl der Zeilen ermitteln und Summe bilden
03.05.2013 10:02:24
Anit
Ich schlage mich schon seit Tagen mit folgendem Problem herum.
Ich habe eine Excel-Tabelle mit abwechselnd positiven und negativen Werten in einer Spalte.
Nun möchte ich die positiven Werte summieren, bis die negativen Werte beginnen. Anschließend solange die positiven Werte summieren, bis das Ende der Spalte erreicht ist. Die Herausforderung dabei ist, dass die Zeilenanzahl in der positive und negative Werte stehen variabel ist.
Hier mein Ausschnitt aus meinem bisherigen Code:
Sub variableSumme()
Dim irow As Double
Dim anz As Integer
Dim a As Range
Dim Z As Long
Set a = Worksheets("Jahreswerte 2012").Range("E2:E35")
irow = 1
For irow = 1 To 35
For Z = 1 To Z 'bei dieser Schleife stimmt iwas noch nicht
anz = Application.WorksheetFunction.CountIf(a, "=0") 'bei dieser Schleife stimmt _
iwas noch nicht, zählt alle Zeilen "=0"
Z = Z + 1 'zählt alle zeilen...
Next Z
Do While Cells(irow, 5) = 0
Cells(irow, 7).Value = Application.WorksheetFunction.sum(Range(Cells(irow,4), Cells(Z, _
4)))
irow = irow + 1
Loop
Next irow
For irow = 1 To 36
For Z = 1 To Z
anz = Application.WorksheetFunction.CountIf(a, "=1")
Z = Z + 1
Next Z
Do While Cells(irow, 5) = 1
Cells(irow, 6).Value = Application.WorksheetFunction.sum(Range(Cells(irow, 4), Cells( _
Z , 4)))
irow = irow + 1
Loop
Next irow
End Sub
Wär super, wenn mir wer helfen könnte!
Gruß
Anit