VBA Select Case i.V. mit vbNullString
29.05.2024 11:39:18
Joschi Witchcraft
Ich bin gerade dabei, eine Routine zu erstellen, mit der ich die Form des übergebenen Parameters ermitteln kann. Bei meiner Planung gehe ich davon aus, dass es auch ein Array sein kann.
Hier mein Testcode:
Sub CaseTest()
Dim V As Variant
Dim N As Integer
N = 19 / 2
V = Array(1, 5, 7)
V = vbNullString
Select Case True
Case IsArray(V)
Stop
Case IsEmpty(V)
Stop
Case IsNumeric(N)
Stop
Case Else
Stop
End Select
End Sub
Meine Probleme: wie kann ich innerhalb der Case-Routine überprüfen, ob ein leerer String übergeben wurde, bzw. ob der numerische Begriff eine Ganzzahl ist. Ist der Begriff keine Ganzzahl, soll der Test bei "Case Else" landen.
Obwohl ich (testweise) die Variable V auf vbNullString gesetzt habe, wird dies mit IsEmpty(V) nicht erkannt.
Die Stop's habe ich eingebaut, um zu sehen, bei welchem Select die Bedingung erkannt wird.
Wer kann mir weiterhelfen?
Gruß Joschi
Anzeige