... um die Anzahl der Elemente in einem Arra zu bestimmen, kannst du das Ubound(Array) verwenden, doch Achtung - Arrays beginnen in der Regel mit dem Index 0...
Dim anzahl As Long
Dim vArray As Variant
anzahl = Ubound(Array) - LBound(Array) + 1
... wenn leere Einträge herausgefiltert werden sollen, dann kann man die zuvor noch mit einem FullTrim entfernen...
ata