Uhrzeitmakro beenden beim schliessen der Datei

[BrianMolko1980]

Hallo an die Gemeinde,

ich habe eine Datei, in der die Uhrzeit alle 5 Sekunden per Makro aktualisiert wird.

Sub Uhrzeit()

    'Uhrzeit
   
    ThisWorkbook.Worksheets("komplett").Range("H17") = Format(Now, "hh:mm:ss")
    ET = Now + TimeValue("00:00:05")
    Application.OnTime ET, "Uhrzeit"

End Sub


Jetzt habe ich beim schließen der Datei unregelmäßig eine Fehlermeldung bekommen,
das im Haltemodus das gestartete 

Private Sub Workbook_Open()
   
    'Uhrzeit
   
    Uhrzeit
   
    'Sheet
   
    Sheets("komplett").Select

End Sub


bei  Sheets("komplett").Select nicht im Haltemodus ausgeführt werden kann.



ich bin über jeden Vorschlag mehr als Dankbar, ihr Profis.


Danke Ron

[Elex]

Hi

Bei der Verwendung von OnTime ist insbesondere das abschalten wichtig. Ich denke das dein Versuch in WorkbookClose da nicht klappt.
Schau mal Hier.
Online - Excel Programmierung VBA Makro: Applicaton.OnTime - Zeitgesteuerte Makros

Ob das dein Problem/Frage beantwortet wird sich zeigen.

Gruß Elex

[hddiesel]

Hallo Ron,

das nachfolgende Makro in "DiesArbeitsmappe", dann wird Application.OnTime ET, "Uhrzeit", beim schließen der Arbeitsmappe beendet.

Code:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime ET, "Uhrzeit", , False
End Sub

Wenn nicht, aktivierst du die Tabelle, in welcher das Makro steht, vor der Zeile On Error Resume Next.

[BrianMolko1980]

Danke euch beiden !!!
Hat beides funktioniert.

Gruß Ron

[hddiesel]

Hallo Ron,

Danke für deine Rückmeldung.