innerhalb einer Schleife möchte ich mehrere Variablen Deklarieren und einen Bereich zuweisen.
Hier ein kleiner Test dazu:
Dim i As Byte
Dim Anzahl as Byte
For i = 1 To Anzahl
Dim Bereich(i) As Range
Set Bereich(i) = .Range(.Cells(1, 1), .Cells(i, 1))
Bereich(i).Select
Next i
Gruß
Dieterlem