Laufende Uhrzeit in Zelle eintragen

In vielen Excel-Anwendungen ist es nützlich, aktuelle Uhrzeiten dynamisch darzustellen, z. B. für Zeitprotokolle, Zeiterfassung oder einfach zur Visualisierung. Mit einem kleinen VBA-Makro lässt sich die laufende Uhrzeit in einer Zelle fortlaufend aktualisieren – wie bei einer Digitaluhr.

Dieses Beispiel zeigt, wie sich in Zelle A1 die aktuelle Uhrzeit eintragen und kontinuierlich aktualisieren lässt. Dabei werden Sekunden, Minuten und Stunden automatisch hochgezählt, sodass der Effekt einer echten Digitaluhr entsteht.

Funktionsweise der Digitaluhr

• Starten der Uhr:
  Mit dem Makro starten beginnt die fortlaufende Aktualisierung der Uhrzeit. Excel berechnet dabei jede Sekunde die neue Zeit und trägt sie in die Zelle ein.
• Aktualisierung:
  Das Makro generate übernimmt die ständige Aktualisierung der Zelle. Es prüft, ob die Uhr aktiv ist, und ruft sich selbst alle Sekunden erneut auf. Dadurch entsteht ein flüssiger Lauf der Zeit wie bei einer echten Digitalanzeige.
• Beenden der Uhr:
  Mit dem Makro beenden kann die Uhr jederzeit gestoppt werden. Die Aktualisierung wird dann angehalten, die Uhrzeit bleibt in der Zelle stehen.

Private t As Boolean
Sub starten()
  t = True
  zeit = Time + TimeSerial(0, 0, 1)
  Application.OnTime zeit, "generate"
End Sub

Sub generate()
  Sheets(1).Cells(1, 2).Value = Time
  If t = True Then starten
End Sub

Mit dem folgenden Makro wird die Aktualisierung der Uhrzeitanzeige beendet

Sub beenden()
  t = False
End Sub

Praxis-Tipps

• Zelle anpassen:
  Standardmäßig wird die Zeit in Cells(1,2) (also B1) angezeigt. Dies kann je nach Bedarf auf eine andere Zelle geändert werden.
• Formatierung:
  Um die Uhr wie eine Digitalanzeige aussehen zu lassen, empfiehlt es sich, die Zelle zeitformatmäßig auf hh:mm:ss zu setzen.
• Automatische Nutzung:
  Die Makros können z. B. über Buttons in Excel gestartet und gestoppt werden. So kann die Uhr intuitiv bedient werden.
• Anwendungsbereiche:
  Ideal für Projektübersichten, Zeiterfassungstabellen oder Demo-Blätter, bei denen eine visuelle Echtzeitanzeige der Uhrzeit benötigt wird.

Mit dieser Lösung lässt sich Excel in eine funktionierende Digitaluhr verwandeln, die Sekunde für Sekunde aktualisiert wird – komplett mit Start- und Stoppfunktion.

Über den folgenden Link können Sie die Beispieldatei herunterladen.