Grundsätzlich ist es simple Mathematik... daher ist es merkwürdig das du fragst.
Option Explicit
Public Sub SimpleMathematik()
Const STEPS_SIZE As Long = 31
Const STEPS_MAX As Long = 3
Dim i As Long
For i = 1 To STEPS_MAX
Debug.Print Format$(i, "000") & ": [A" & (1 + (i - 1) * STEPS_SIZE) & ":A" & (i * STEPS_SIZE) & "]"
Next
End Sub
Wenn das jetzt solange geschehen soll bis keine Daten mehr in der Spalte vorhanden sind, dann wird aus der For-Scheife eine Do-Loop Schleife (und die Konstante STEPS_MAX entfällt).
Falls es nicht für dich ersichtlich sein sollte:
Das obige Beispiel zeigt nur wie man Anfang und Ende des jeweiligen Abschnitts berechnet. Dies musst du um deine Aktionen ergänzen.
|