Buchstaben abfragen
27.08.2002 15:34:42
Bernd
ich möchze in einem Feld jeden Buchstaben abfragen. Es dürfen nur die 26 Buchstaben des Alphabets (chr 65-90 Großschreibung und chr 97-122), die 0-9 (chr 48-57) und der Bindestrich chr(45)verwendet werden. Leider klappt es nicht ganz, das Programm nimmt immer den gesamten Value nicht nur den einzelnen Buchstaben. Kann mir jemand sagen wie ich den einzeln eingegebenen Buchstaben abfragen kann.
Mit freundlichen Grüßen
Bernd
Private Sub Feld_Zugang_apn_Change()
On Error GoTo ENDE
eingabe = UserForm_Zugang.Feld_Zugang_apn.Value
If eingabe < Chr(44) _
Or (eingabe > Chr(45) And eingabe < Chr(48)) _
Or (eingabe > Chr(57) And eingabe < Chr(65)) _
Or (eingabe > Chr(90) And eingabe < Chr(97)) _
Or eingabe > Chr(122) Then
MsgBox ("Bitte nur die 26 Buchstaben des Alphabets (Groß/Kleinschreibung), sowie 0-9 und den Bindestrich verwenden")
End If
ENDE:
End Sub
Anzeige