HERBERS Excel-Forum - die Dialoge

Thema: Keine Sonderzeichen

Home
Abbildung - Keine Sonderzeichen
Keine Sonderzeichen
  • Prozedur: txtPruefung_KeyPress
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Keine Sonderzeichen
  • Ablaufbeschreibung:
    • 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