Office: Timer beenden

Torsten1 · 26. März 2013

Hallo

Ich habe von der Seite von Peter Haserodt folgenden Timer eingebaut,
der bei "Workbook_Open" gestartet wird:
Diese Arbeitsmappe:
Code:

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)
StopTimer
End Sub
Private Sub Workbook_Open()
StarteTimer
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Modul:
Code:

Dim iTimerSet As Double
Sub StarteTimer()
Application.ScreenUpdating = False
ThisWorkbook.Worksheets("Eingabe").Range("S1").Value = Format(Now, "hh:nn:ss")
iTimerSet = Now + TimeValue("00:00:10")
Application.OnTime iTimerSet, "StarteTimer"
Application.ScreenUpdating = True
End Sub
Sub StopTimer()
On Error Resume Next
Application.OnTime iTimerSet, "StarteTimer", , False
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bekomme es ums Ver**cken nicht hin, dass der Timer beim schließen beendet wird.

Schließe ich die Mappe und habe Excel noch geöffnet, wird sie automatisch
nach 10 Sekunden (Timer-Zeit) wieder geöffnet.
Selbst wenn ich das Makro "StopTimer" direkt ausführe ändert sich nichts.

Jemand eine Idee ?

Nette Grüße
Torsten

:)

R J · 27. März 2013

Hi Torsten,

das liegt aus meiner Sicht jedoch nicht am Timer. Jedenfalls nicht an diesem. In der Prozedur StopTimer wird StarteTimer gelöscht und nirgendwo in Deinem Code wird ersichtlich, dass das Workbook, in dem die Prozedur des Timers ausgeführt wird, neu geöffnet werden soll...

Torsten1 · 27. März 2013

Danke für die Antwort !

Nehme ich den Timer aber heraus, speichere ich die Datei, beende Excel,
öffne es und die Datei und beende die Datei wieder ohne Excel zu beenden,
öffnet sie sich nicht mehr "selbstständig".

Aber selbst wenn ich "StopTimer" direkt aufrufe, läuft er weiter !

Hmmmmm.........

Nette Grüße
Torsten

Hajo_Zi · 27. März 2013

Hallo Torsten,

Du solltest iTimerSet Mappenweit definieren also Public.
Das war ein Fehler.
Ich baue keine Datei nach.

Torsten1 · 27. März 2013

DAS war es Hajo !
(man ging mir das auf den Sender mit dem ewigen wieder-öffnen..........)

Vielen, vielen Dank !!!!

Jetzt klappt es auch, wenn ich "StopTimer" direkt ausführe !

Nette Grüße
Torsten

Office: Timer beenden

Timer beenden

Timer beenden

Timer beenden

Timer beenden - Similar Threads - Timer beenden

Seit O365 Problem mit Callback-Funktion

Zeitstempel aus Stoppuhr bei Notizen

DateTimePicker

Zwei unterschiedliche Timer Intervalle

Corona: Mehrere Timer in Formular nur 1. wird geupdatet

Time-Funktion

Timer-Funktion