Zwischen Textboxen mit Tab springen
08.08.2017 15:41:18
_Domi_
ich habe in meiner Userform mehrere Textboxen.
Folgenden Code habe ich eingepflegt, damit Buchstaben, Zahlen und "ß", sowie Enter und Tab und Leer funktionieren.
Private Sub Textbox1_Keypress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case 65 To 90
Case 97 To 122
Case 32
Case 223
Case 9:
TextBox2.SetFocus
Case Else:
KeyAscii = O
MsgBox "Hier sind keine Sonderzeichen zulässig!", vbExclamation, "Eingabefehler"
End Select
End Sub
Hat jemand eine Ahnung warum es nur sporadisch funktioniert?
Danke und Gruß
Domi
Anzeige