keine Sonderzeichen in Textbox zulassen
03.06.2004 12:26:09
Dominik
Ich suche eine SUB-Routine die es einem User nicht erlaubt Sonderzeichen in eine Textbox in einem Formular einzugeben. Ich habe im Archiv von Herber auch was gefunden, aber das lässt sich nicht öffen.
Ich dachte an was in der Richtung von:
Private Sub AnzMesBox_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'Standard Prozedure die eine Eingabe von Buchstaben nicht zu lässt
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc(","), Asc(".")
If InStr(TextBox1, ".") <> 0 Then
KeyAscii = 0
Else
KeyAscii = Asc(".")
End If
Case Asc(vbBack)
Case Asc("-")
If Len(TextBox1) = 0 Then
If InStr(TextBox1, "-") <> 0 Then
Else
KeyAscii = Asc("-")
End If
Else
KeyAscii = 0
End If
Case Else
KeyAscii = 0
End Select
End Sub
Nur anstelle von nur Zahlen soll alles erlaubt sein außer Sonderzeichen!
Grüße und Dank
Dominik