Ich habe den Code jetzt mal strukturiert:
Sub LoopSumme()
Dim i As Integer
Worksheets("Tabelle1").Activate
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
Mal von den nicht deklarierten Variablen abgesehen, finde ich keinen Logikfehler.
Bei i=2 wird die Summe(A26:A30) ermittelt.
Wenn die 0 ergibt hast Du entweder nichts oder "Textzahlen" im Bereich stehen.
Was ergibt =ISTZAHL(A26)?
Davon ab:
So etwas kann man doch gleich per Formel machen! Wozu VBA?
Gruß Ralf
|