hallo,
du hast recht, vielleicht folgende wäre eine Lösung:
....
Select Case UBound(r)
Case 1:
Set abc = Union(r(0), r(1))
Case 2:
Set abc = Union(r(0), r(1), r(2))
Case 3:
Set abc = Union(r(0), r(1), r(2), r(3))
Case 4:
Set abc = Union(r(0), r(1), r(2), r(3), r(4))
End Select
...
|