Wenn das eingegebene Zeichen nicht dem vorgegebenen Muster entspricht...
Warnton
Negativmeldung
Eingabe zurücksetzen
Code:
Private Sub txtPruefung_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If Chr(KeyAscii) Like "[0-9a-zA-Z]" = False Then
Beep
MsgBox "Nur Zahlen und Buchstaben erlaubt!"
KeyAscii = 0
End If
End Sub