Prüfen ob Liste leer ist

[tks]

Hallo zusammen.

Ich erstelle in einem Script eine Liste (Dim pipapo List as String) und fülle diese. Während des weiteren Ablaufs werden Elemente der Liste wieder gelöscht. Und zum Schluss möchte ich feststellen, ob die Liste komplett leer ist.

Problem: Wie mache ich das?

Mit IsEmpty oder IsList bin ich nicht zum Ziel gekommen. Obwohl kein Listeneintrag mehr vorhanden ist, gibt IsEmpty "False" zurück.

Ich stehe voll auf dem Schlauch.

[Werner Götz]

Function HasElements(lst As Variant) As Single
%REM
Die Funktion testet, ob eine Liste Elemente enthält
%END REM
   
   Forall e In lst 'Wenn die Liste Elemente enthält wird die Funktion sofort verlassen
      HasElements = True
      Exit Function
   End Forall
   HasElements = False 'Die Liste hatte keine Elemente   
End Function

[tks]

Ui. Da hätte man dann aber auch selbst..... 

Vielen Dank für die Lösung. Klappt wunderbar.