hallo,
du kannst folgende Kode probieren.
1.) um ein Feld (Array) dynamisch zu erstellen muss "Redim" nutzen.
2.) in der ersten Schleife "For k=n to i", die Variable "i" ist "0".
Sub test1()
Dim n As Integer
n = 2
Dim k, i As Integer
Dim abc As Range
Dim r() As Range
ReDim r(n)
For k = n To i
For i = 0 To n
''set r(i)= Range(cells(4i+1,4k+1),cells(4i+3,4k+3))
Set r(i) = Range(Cells(4 * i + 1, 4 * 4 + 1), Cells(4 * i + 3, 4 * k + 3))
Next i
Next k
For i = 0 To n Step 2
Set abc = Union(r(i), r(i + 1))
Next
abc.Select
End Sub
|