Fehler bei Zeitmakro (Uhrzeit soll automatisch jede Minute aktualisiert werden)
Hallo Zusammen,
verwende eine Makro um jede Minute meine Zeitangabe automatisch aktualisieren zu lassen.
Meine Eingabe in Visual Basic:
Sub Zeitmakro()
ThisWorkbook.Worksheets("Tabelle1").Range("M2") = Format(Now, "hh:mm")
ET = Now + TimeValue("00:01:00")
Application.OnTime ET, "Zeitmakro"
End Sub
Darauffolgende Fehlermeldung:
Index außerhalb des gültigen Bereichs
Was ist mein Fehler? Weiß leider nicht weiter?
Habt ihr Tipps&Tricks für mich?
Danke.
Gruß
Dom
verwende eine Makro um jede Minute meine Zeitangabe automatisch aktualisieren zu lassen.
Meine Eingabe in Visual Basic:
Sub Zeitmakro()
ThisWorkbook.Worksheets("Tabelle1").Range("M2") = Format(Now, "hh:mm")
ET = Now + TimeValue("00:01:00")
Application.OnTime ET, "Zeitmakro"
End Sub
Darauffolgende Fehlermeldung:
Index außerhalb des gültigen Bereichs
Was ist mein Fehler? Weiß leider nicht weiter?
Habt ihr Tipps&Tricks für mich?
Danke.
Gruß
Dom
Please also mark the comments that contributed to the solution of the article
Content-Key: 249436
Url: https://administrator.de/contentid/249436
Printed on: April 24, 2024 at 22:04 o'clock
5 Comments
Latest comment
Hallo Dom,
Das setzen eines Breakpoints im VBA Editor sollte hier Klarheit bringen !
Grüße Uwe
p.s. Bitte nutze Code-Tags für deinen Quellcode:
- liegt die Prozedur überhaupt in einem Modul, oder im Codeabschnitt eines Worksheets ?
- Existiert das Worksheet Tabelle1 ?
Das setzen eines Breakpoints im VBA Editor sollte hier Klarheit bringen !
Grüße Uwe
p.s. Bitte nutze Code-Tags für deinen Quellcode:
<code> Quellcode </code>
. Merci.Die Prozedur liegt im Codeabschnitt
falsch, lege sie in ein Modul, dann läuft diese wie gewünscht. Oder wenn der Code weiterhin in deinem Codeabschnitt liegen soll, schreibst du für den Makroaufruf in der Ontime Prozedur den Namen des Codeabschnitts davor.Wenn dein Code also im Abschnitt DieseArbeitsmappe liegen sollte lautet der Aufruf so
Application.OnTime ET, "DieseArbeitsmappe.Zeitmakro"
Private Sub Workbook_Open()
Zeitmakro
End Sub