ich möchte mehrere Bereiche über eine For Next Schleife ansprechen. Folgender Versuch führt aber nicht zum Ziel: Was mache ich falsch?
Auszug aus dem Code:
Dim Bereich1, Bereich2, Bereich3, Bereich4, 'usw... As Range
Dim i As Integer
Set Bereich1 = Range("A3:C10")
Set Bereich2 = Range("A12:C18")
Set Bereich3 = Range("A20:C31")
Set Bereich4 = Range("A33:C41")
'usw......
For i = 1 To 25
With Sheets(3).(Bereich & i")
.Select
End With
Next i
Vorab besten Dank!
Bernd