hallo,
du kannst folgende Kode probieren,
1.) um ein Feld (Array) dynamisch zu erstellen nimmst du "Rdeim" ;
2.) in erste Schleife "For k = n Ti i", die Variable "i" ist noch "0";
3.) die Zweite Argument in "Union" ist erforderlich ;
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
|