Gibt es eine einfache Möglichkeit abzufragen, ob ein Array leer ist oder bereits mindestens einen Wert enthält?
Viele Grüße
Martin
Sub test()
Dim myArray(), i&, n&, z&
myArray = Selection
'Array füllen
For i = 1 To UBound(myArray, 1)
For n = 1 To UBound(myArray, 2)
myArray(i, n) = Selection(n)(i)
Next n
Next i
'Auswertung
z = Application.CountA(myArray)
If z