Timer abstellen
22.08.2013 21:48:48
Olaf
Ich möchte, dass mein Timer automatisch endet, wenn ich zwar die Excelmappe geöffnet lasse, aber in ein excelfremdes Programm wechsele. Ich habe z.B links auf dem Monitor das inaktive Excel und rechts ein aktives Programm.
Diese Versuche haben bei mir nicht geholfen:
Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
StoppTimer
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
StoppTimer
End Sub
Hier mein eingebauter Code.
Option Explicit
Public Zeit As Date
Sub StartTimer()
Zeit = Now + TimeValue("00:00:01") 'Intervall festlegen
Application.OnTime Zeit, "ZeitInZelle"
End Sub
Sub StoppTimer()
On Error Resume Next
Application.OnTime EarliestTime:=Zeit, Procedure:="ZeitInZelle", Schedule:=False
End Sub Geht er überhaupt in dem Falle abzustellen?
Gruß Olaf
Anzeige