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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen