ich habe in einer UserForm 3 Textboxen eingebaut. Erst wenn alle 3 Textboxen ausgefüllt sind, soll die Userform geschlossen werden. Damit habe ich kein Problem, funktioniert. Jedoch soll bei leerer Textbox die gleich Textbox wieder aktiv sein, solange, bis ein Wert eingeben wurde. Desweiteren soll, wenn ein Wert da ist, die nächste Textbox aktiviert werden. Das funktioniert leider nicht. Es werden willkürlich die Textboxen angesprungen. Anbei mein VBA-Code, welcher in der UserForm hinterlegt ist.
Der VBA-Code ist 3 mal vorhanden, für jede Textbox einmal (habe ihn aber nur einmal eingefügt, da die anderen genauso aussehen).
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
If TextBox1 = "" Then
TextBox1.SetFocus
Exit Sub
End If
Passwort = TextBox1
If TextBox2 = "" Then
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
TextBox3.SetFocus
Exit Sub
End If
If TextBox1 "" And TextBox2 "" And TextBox3 "" Then Unload Me
End If
End Sub
Danke für Eurer Hilfe im voraus.
Thomas