Hallo zusammen,
ich habe folgenden Code geschrieben, aber er funkt noch nicht richtig..
Sub Total_Summe()
Dim a As Integer
Dim b As Integer
Dim summe As Integer
summe = 0
For a = 9 To 1000
If ActiveSheet.Cells(3, a) = "" Then
For b = 9 To a
summe = summe + ActiveSheet.Cells(3, b)
Next b
Activsheet.Cells(3, a + 2) = summe
End If
Next a
Hierbei soll er in die Spalte C gehen und ab der Zeile 9 untersuchen, ob zuerst diese leer ist. das macht er dann solange, bis die spalte zu ende ist und er eine leere Zeile findet. Nun soll er die Summe von C9 bis zum Ende errechen und diesen Wert dann der Zelle, die zwei Zeilen unterhalb der letzten Zeile ist zuweisen.
Wo ist der Fehler?