Teilsumme VBA
28.11.2005 19:15:33
Wolfgang
ich möchte Teilsummen bilden
In Spalte A steht wonach gruppiert werden soll.
In Spalte B die Werte der Summierung.
Leider bekomme ich ein falsches Ergebnis.
Sub TS()
Dim N As Long
Dim summe As Integer
For N = 2 To ActiveSheet.Range("a65536").End(xlUp).Row + 1
If Cells(N, 1) = Cells(N - 1, 1) Then
summe = summe + Cells(N - 1, 2)
Else
Cells(N - 1, 3) = summe
summe = 0
End If
Next N
End Sub
z.B.
0
1000002146 100,00
1000002146 200,00
1000002146 300,00
1000002146 400,00
1000002146 500,00
1000002146 600,00
1000002146 700,00
1000002146 800,00 richtig Falsch
1000002146 900,00 4500 3600
1000002148 1.000,001000 1000 0
Gruß
Wolfgang