hab mal wieder eine Frage:
In einer TextBox werden bei Eingabe nur Buchstaben, Zahlen und zwei Sonderzeichen (Leertaste) und (Bindestrich) zugelassen!
Aus der Recherche hab ich mir folgendes Makro zusammengebastelt.
Ich komme einfach nicht dahinter, wie man das ganze verkürzen könnte.
Mit verkürzen meine ich: Nicht jeden Buchstaben einzeln aufzuführen.
Danke im Voraus
Gruß Didi
Private Sub Vorname_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case Asc("0") To Asc("9")
Case Asc("A")
Case Asc("B")
Case Asc("C")
Case Asc("D")
Case Asc("E")
Case Asc("F")
Case Asc("G")
Case Asc("H")
Case Asc("I")
Case Asc("J")
Case Asc("K")
Case Asc("L")
Case Asc("M")
Case Asc("N")
Case Asc("O")
Case Asc("P")
Case Asc("Q")
Case Asc("R")
Case Asc("S")
Case Asc("T")
Case Asc("U")
Case Asc("V")
Case Asc("W")
Case Asc("X")
Case Asc("Y")
Case Asc("Z")
Case Asc("a")
Case Asc("b")
Case Asc("c")
Case Asc("d")
Case Asc("e")
Case Asc("f")
Case Asc("g")
Case Asc("h")
Case Asc("i")
Case Asc("j")
Case Asc("k")
Case Asc("l")
Case Asc("m")
Case Asc("n")
Case Asc("o")
Case Asc("p")
Case Asc("q")
Case Asc("r")
Case Asc("s")
Case Asc("t")
Case Asc("u")
Case Asc("v")
Case Asc("w")
Case Asc("x")
Case Asc("y")
Case Asc("z")
Case Asc(" "), Asc(" ")
If InStr(Geburtstag, " ") <> 0 Then
KeyAscii = 0
Else
KeyAscii = Asc(" ")
End If
Case Asc(vbBack)
Case Asc("-")
If Len(Geburtstag) = 0 Then
If InStr(Geburtstag, "-") <> 0 Then
Else
KeyAscii = Asc("-")
End If
Else
KeyAscii = 0
End If
Case Else
KeyAscii = 0
MsgBox "Bitte nur Ziffern eingeben oder Zahlen zur Eingabe verwenden !", 64, "Geburtstag"
End Select
End Sub