Userform Folge-Textbox automatisch ansteuern
Dietmar
ich habe in einer Userform mehrere Textboxen, denen ich das Format "nur eine Ziffer2 zugewiesen haben.
Das klappt auch ganz prima.
Nun möhte ich den Code aber noch etwas verbessern: Wie kann ich erreichen, dass der Cursor automatisch in die nächste Textbox springt, wenn eine Ziffer (vorgesehen ist auch nur eine Ziffer) eingetragen wurde?
Meine Idee habe ich dargestellt. So geht es aber leider nicht
Vielen Dank vorab!
Dietmar aus Aachen
Private Sub CommandButton1_Click()
'Partnernummer 1. Ziffer
If IsNumeric(TextBox2.Text) Then
Range("B2") = CDbl(TextBox2.Text)
Else
End If
End Sub
Private Sub TextBox2_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
'1. Ziffer der Partnernummer
Select Case KeyAscii
Case Asc(0) To Asc(9), Asc(","), 8 '8 = Backspace - Löschen nach links
TextBox2.MaxLength = 1
If Len(TextBox2) = 1 Then 'DAS HIER GEHT NICHT
TextBox3.Select
End If
Case Else
KeyAscii = 0
End Select
End Sub