Ich möchte eine Textbox die nur folgende Buchstaben: F N S und ein Sonderzeichen: akzeptiert.
Habe auch schon ein passenden Code gefunden.
Hier ist der Code dazu:
Dim Check as boolean
Check = false
if Len(Textbox1.Text) = 7 then
if left(Textbox1.Text, 1) = "T" then
if not isnumeric(right(Textbox1.Text,1)) then
if isNumeric(mid(Textbox1.Text, 2, 5)) then
Check = True
end if
end if
end if
end if
If Check = False then
msgbox "das Eingabefeld wurde nicht korrekt befüllt"
else
' --- hier der weitere Makrocode
end if
Wie müsste der Code umgeschrieben werden das es auch funktioniert?
Hat noch jemand eine Idee?
Mit freundlichen Grüßen
Steffen A