Kann man eine aktive Textbox so einstellen das wenn nach einer bestimmten Zeit
keine Eingabe erfolgt das Programm zur nächsten Textbox weiter springt.
Macht im ersten Moment keinen Sinn möchte aber was ausprobieren.
Gruß zum ersten Advent Jochen
Private Sub UserForm_Activate()
Application.OnTime Now + TimeValue("00:00:05"), "weiter"
End Sub
code in modul
Sub weiter()
UserForm1.TextBox2.SetFocus
End Sub
Gruß Timo
Private Sub TextBox1_GotFocus()
Application.OnTime Now + TimeValue("00:00:05"), "weiter"
End Sub
Dieser Code in ein Modul:
Private Sub weiter()
With Sheets("Tabelle1")
.TextBox2.Activate
End With
End Sub