Hallo! Hier noch ein Ergänzung da mein letzter Satz missverständlich war. ICh schrieb
An Stelle von dem mod Wert, könnte man das auch mit Versatz machen und dort immer 4 dazuaddieren. Finde das so aber immer schöner.
Das Wort Versatz sollte eigentlich offset heißen. Ich wandele ja immer im Konstrukt activesheet.cells(zeile,spalte) entweder Zeile oder Spalte mit einem Versatz um. Nachteil ist, dass man immer aufpassen muss, wo man startet und wie der Versatz ist. Man könnte es auch so machen, dass man sich eine Startzeile (bspw. E5) nimmt und dann nur den Offset hinzufügt um die Zellen auszuwerten.
Bspw. ist activesheet.cells(5,5) der Wert von E5 für E6 könnte man jetzt activesheet.cells(5+1,5) schreiben oder ActiveSheet.Cells(5, 5).Offset(1, 0) also eine Zeile runter. Da ist praktisch der Versatz von der Startzelle getrennt. In deinem Beispiel müsste für die Summe von E5 + E9 ff. dann geschrieben werden.
for i = 1 to zeilesum - 1 step 4
summe = summe + ActiveSheet.Cells(5, 5).Offset(i, 0)
next i
Hat ggf. den Vorteil mal sieht direkt, wo man startet und welcher Versatz hinzukommt. Anstelle von cells() könnte man dann auch mit Range("E5") arbeiten. Da sieht man den Startpunkt dann noch besser.
Das nur noch als Ergänzung. VG
|