Hallo,
probier mal, die Ganze Geschichte in die Abfrage:
If isArray(<<variant>>) Then
-> Array-Operationen
End If
einzubetten. Alternativ kannst Du Dir auch alle Elemente, die Du weiter verwenden willst, in einen zweiten Array rüberziehen.
Bsp:
Dim tmp(0 to ...) as <<Datentyp>>
If isArray(<<variant>>) Then
ForAll element in <<variant>>
if Element->Bedingung erfüllt Then
tmp.redimPreserver(uBound(tmp) + 1)
tmp(uBound(tmp) -1) = element
End if
End Forall
End If
So in der Art.
Thomas