Hallo zusammen,
kann mir jemand bei meiner Herausforderung helfen?
In einer Inputbox frage ich nach einem 3-Letter-Code, z. b. CGN für Köln.
Um Fehleingaben zu vermeiden möchte ich erreichen, dass:
a - nicht mehr als 3 Buchstaben eingeben werden
b - die Eingabe mit den für Deutschland gültigen 3-Letter-Codes verglichen wird und bei Übereinstimmung akzeptiert wird.
Ein Teil sieht so aus:
Pfad1:
Pfad1 = InputBox("Bitte 3-Letter-Code eingeben: ", "3-Letter-Codes")
If Pfad1 = "" Then
GoTo Pfad1
End If
If IsNumeric(Pfad1) Then
GoTo Pfad1
End If
'Das hier funktioniert nicht.........
If Pfad1 "CGN" Or "DUS" Then
GoTo Pfad1
End If
Vielen Dank und viele Grüße
Andreas