Hallo ich habe folgenden Code, der immer Abschnittsweise 5 werte aus Tabelle1, Spalte 1 zusammenzählen soll.
Allerdings gibt er ab i=2 nur noch 0 aus. Wo ist mein Fehler ?
Sub LoopSumme()
Worksheets("Tabelle1").Activate
x = 0
y = 0
Dim i As Integer
For i = 0 To 10
x = (7 * i)
y = (7 * i)
Summe = WorksheetFunction.Sum(Range(Cells(12 + x, 1), Cells(16 + y, 1)))
Worksheets("Tabelle2").Activate
last = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(last, 1).Value = Summe
Next
End Sub
|