schedule beenden?
22.08.2003 10:49:37
John
kann mir jemand sagen, wie ich ein Schedule beende?
Ich habe in einer Datei folgende Makros:
Sub SitzNächstAkt()
nächstinterv = Now + TimeValue("00:00:01")
Application.OnTime earliesttime:=nächstinterv, procedure:="UhrzSchreiben", schedule:=True
End Sub
Private Sub UhrzSchreiben()
ActiveCell.Value = Now
Call SitzNächstAkt
End Sub
Dadurch wird das Makro "UhrzSchreiben" sekündlich ausgeführt. Das Problem ist, daß ich beim Schließen der Datei einen Fehler bekomme (wenn die Arbeitsmappe geschlossen ist, wird trotzdem in der nächsten Sekunde versucht, das Makro "UhzSchreiben" auszuführen). Ich müßte also beim Schließen der Mappe bestimmen, daß der für die nächste Sekunde geplante Befehl nicht mehr ausgeführt werden soll.
Ich hab' versucht, in einem auto_close-Makro die Befehle
nächstinterv = Now + TimeValue("00:00:01")
Application.OnTime earliesttime:=nächstinterv, procedure:="UhrzSchreiben", schedule:=false
zu benutzen, das funzt aber auch nicht... kann jemand helfen? Vielen Dank im voraus!
Gruß,
John