![](https://images.gutefrage.net/media/default/user/6_nmmslarge.png?v=1438863662000)
![](https://images.gutefrage.net/media/user/DJBaem/1464516341686_nmmslarge__0_18_300_300_267635f8d3ed62f2d990bac7a7faebeb.jpg?v=1464516344000)
Hallo,
hier die Lösung:
Folgenden Code in das Codefenster von DieseArbeitsmappe
Option Explicit
Private Sub Workbook_Open()
Zeitmakro
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub
und in ein allgemeines Modul diesen
Option Explicit
' Code "Zeitmakro" von Hajo Ziplies,
Public DaEt As Date
Sub Zeitmakro()
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
DaEt = Now + TimeValue("00:00:01")
Application.OnTime DaEt, "Zeitmakro"
End Sub
In Tabelle1 A1 wird die laufende Zeit angezeigt.
Viel Spaß damit. :)
LG
Benny