Der Abstand (Offset) zwischen den Tabellen scheint zu alternieren (31, 32, 31, 32, ...).
In dem Fall kann man das über ein boolschen Schalter (Flag) lösen, welchen man ebenfalls alterniert.
Option Explicit
Sub Test()
Dim rng As Excel.Range
Dim bolSwitch As Boolean 'unser An/Aus-Schalter
'der referenzierte Bereich - Start
Set rng = Range("A8:G32")
'Endlosschleifen benötigen ein Abbruchkriterium
' hier wird bis kleiner-als Zeile 100 gearbeitet
Do While rng.Row < 100
'Ausgabe der Bereich-Adresse im Direktfenster
'(ggf. einblenden über Menü 'Ansicht' oder mit STRG+G)
Debug.Print rng.Address
If bolSwitch = False Then
rng.ClearContents 'Inhalt leeren, Formate behalten
Set rng = rng.Offset(31) 'nächsten Bereich referenzieren
Else 'bolSwitch = True
rng.Clear 'alles leeren (Inhalt, Formate, ...)
Set rng = rng.Offset(32) 'nächsten Bereich referenzieren
End If
'Schalter negieren
bolSwitch = Not bolSwitch
Loop
End Sub
Die Frage ist hier nur, wie lange soll die Schleife laufen? Ich habe hier mal als Abbruch-Kriterium bis max. Zeile 100 gewählt.
Damit sind es am Ende 3 Schleifendurchgänge (8 + 31 + 32 = 71 -> 71 + 31 = 102 -> Abbruch).
|