Thema: Nach 1 Minute schließen

• Deklaration einer PublicVariablen für die Start-Zeit und den Zeitpunkt des nächsten Aufrufs
• Nächster Aufruf nach 10 Sekunden
• Rekursiver Aufruf der Prozedur
• Wenn aktuelle Zeit minus letzte Startzeit größer als 1 Sekunde, dann Prozedur StopClock aufrufen

Public NextTime As Date, dteStart As Date

Sub Updateclock()
   NextTime = Now + TimeValue("00:00:10")
   Application.OnTime NextTime, "Updateclock"
   If Time - dteStart > TimeSerial(0, 1, 0) Then Call StopClock
End Sub

• Zeitschleife beenden
• UserForm schließen
• Arbeitsmappe speichern und schließen

Sub StopClock()
   Application.OnTime NextTime, "Updateclock", , False
   Unload frmAutomatic
   ThisWorkbook.Close savechanges:=True
End Sub

• Aktuelle Zeit an PublicVariable übergeben
• Die Prozedur mit der Zeitschleife aufrufen

Private Sub UserForm_Activate()
   dteStart = Time
   Call Updateclock
End Sub

• Aktuelle Zeit an PublicVariable übergeben

Private Sub txtEingabe_KeyUp( _
   ByVal KeyCode As MSForms.ReturnInteger, _
   ByVal Shift As Integer)
   dteStart = Time
End Sub