VBA für Userform

[Sofia_Bauer]

Wenn user in "Textbox 1" nach 1 Sekunde keine Eingabe mehr macht, dann TextBox2.SetFocus.

Ich bräuchte mal die Formel für die Zeit.

Liebe Grüße

[Ralf A]

Hi Sofia,

Deine Umgangsformen sind auch noch ausbaufähig.

Zu Deiner Frage: Schau mal hier nach.

[Steffl]

Hallo Sofia,

Code in der Useform

Code:

Private Sub TextBox1_Enter()
   Application.OnTime Now + TimeValue("0:00:05"), "prcFocus2"
End Sub

Code in einem allgemeinen Modul

Code:

Private Sub prcFocus2()
   UserForm1.TextBox2.SetFocus
End Sub

Zeit in diesem Codebeispiel 5 Sekunden

[derHoepp]

Moin,

ich bin der Ansicht, dass beide Lösungswege nicht sehr glücklich sind. Zum einen wirkt Application.Ontime außerhalb der UserFormKlasse und braucht deswegen noch einen Objektzeiger, mit dem es arbeiten kann und zum anderen wird in Stefans Beispiel nicht geprüft, ob nach der ersten Eingabe noch eine Eingabe folgt.

Du benötigst m. E. Also ein Timer Objekt, dessen Tick du regelmäßig verfolgst und mit dem Zeitpunkt der letzten Änderung in Textbox1 abgleichst.

Viele Grüße 
derHoepp

[RPP63]

Wenn user in "Textbox 1" nach 1 Sekunde keine Eingabe mehr macht

Ich als Korinthenkacker behaupte, dass dies bedeutet, dass zunächst mal mindestens ein Tastaturanschlag gemacht wurde.
Folglich müsste der Trigger ein Textbox_Change sein.

Aber folgende Frage ist erlaubt?
Was soll der Quatsch?