NextSpeichern = Now + TimeValue("00:00:45")
Application.OnTime NextSpeichern, "Neu_öffnen"
NextSpeichern = Now + TimeValue("00:00:45")
Application.OnTime NextSpeichern, "Neu_öffnen"
da gast Du schon recht das aufhenenist kompliziert. Ich mache immer es immer so das die Zeuit auf eine Variable geschrieben wird. Hier mal ein Beispiel.
Sub Zeitmakro() in DieseArbeitsmappe Private Sub Workbook_Open() Private Sub Workbook_BeforeClose(Cancel As Boolean)
Code eingefügt mit Syntaxhighlighter 1.16
in ein modul
Option Explicit
Public ET As Variant
' unter Anleitung von KlauCh
Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "Zeitmakro"
End Sub
Option Explicit
Zeitmakro
End Sub
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="Zeitmakro", Schedule:=False
End Sub
Gruß Hajo
so eine Frage hatte ich vor einigen Wochen auch schon einmal gestellt. Hier die Lösung, die hervorragend klappt:
Dim blnStopp As Boolean
Sub Beginn()
blnStopp = False
NextSpeichern = Now + TimeValue("00:00:45")
Application.OnTime NextSpeichern, "Neu_öffnen"
End Sub
Sub Neu_öffnen()
If Not blnStopp Then
... dein Code
Else
Exit Sub
End If
End Sub
Sub Ende()
blnStopp = True
End Sub
Gruss,
Martin