HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Entdecke rund 2 Millionen Excel-Lösungen im
Forumsarchiv

Beiträge zum Thread: Laufende Uhrzeit in einer Zelle

Hans-Georg
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
Yal
17.05.2026 14:06:38
AW: Laufende Uhrzeit in einer Zelle
Sigi.21
17.05.2026 14:54:32
AW: Laufende Uhrzeit in einer Zelle
Uduuh
17.05.2026 14:19:18
AW: Laufende Uhrzeit in einer Zelle
Hans-Georg
17.05.2026 15:55:49
Warum laufende Uhrzeit "Erklärung"
Daniel
17.05.2026 16:33:34
AW: Warum laufende Uhrzeit "Erklärung"
Case
17.05.2026 19:18:35
Wenn es dir...
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Hans-Georg
17.05.2026 13:47:03
Laufende Uhrzeit in einer Zelle
Hallo Forum,

ich möchte gerne eine laufende Uhrzeit in einer bestimmten Zelle haben.

Dazu habe ich folgendes Makro in "Diese Arbeitsmappe" kopiert

Sub Uhr_Starten()
Range Rechnung("CT49").Value = Now
Range Rechnung("CT49").NumberFormat = "hh:mm:ss"
Zeit = Now + TimeValue("00:00:01")
Application.OnTime Zeit, "Uhr_Starten"
End Sub

Na ja, wie ihr euch denken könnt, funktioniert das Makro natürlich NICHT

Ich habe vor Jahren einmal solch ein Makro zum laufen bekommen und deshalb hier im Archiv ein bisschen Recherche betrieben. Leider laufen die meisten in einer User form.

Ich brauche die Uhrzeit in dem Tabellenblatt "Rechnung" in der Zelle "CT49"

Excel & VBA Kenntnisse sind bei mir noch "bescheiden", deshalb brauche ich wohl auch "genaue Anweisungen"

Vielen Dank für die Hilfe

Hans-Georg
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Yal
17.05.2026 14:06:38
AW: Laufende Uhrzeit in einer Zelle
Hallo Hans-Joerg,

nicht zweifeln, alle Anfänge sind schwer. Der beste Weg, einen ausführbaren Code zu bekommen, ist der Makrorekorder zu verwenden.

Dein Code müsste ca. so geändert werden: 

Sub Uhr_Starten()

Worksheets("Rechnung").Ränge("CT49").Value = Now

Worksheets("Rechnung").Ränge("CT49").NumberFormat = "hh:mm:ss"

Zeit = Now + TimeValue("00:00:01")

Application.OnTime Zeit, "Uhr_Starten"

End Sub

Aber davon abgesehen, sehe ich keine Mehrwert in einer Datei eine fortlaufende Uhrzeit einzutragen. Dateien sollten nur dauerhafte Werte speichern.
Zum Beispiel speichert man nicht das aktuellen Alter von jemand, sondern sein Geburtsdatum. Warum wohl?

VG
Yal
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Sigi.21
17.05.2026 14:54:32
AW: Laufende Uhrzeit in einer Zelle
Hi,

oh, das wusste ich noch gar nicht: " .Ränge("CT49").Value = Now "
VBA kann jetzt deutsche Umlaute!

Gruß Sigi
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Uduuh
17.05.2026 14:19:18
AW: Laufende Uhrzeit in einer Zelle
Hallo,
in ein Modul und ggfs. im Workbook_open starten: 
Sub Uhr_Starten()

  Dim Zeit As Date



  With Worksheets("Rechnung").Range("CT49")

    .Value = Now

    .NumberFormat = "hh:mm:ss"

  End With

  

  Zeit = Now + TimeSerial(0, 0, 1)

  Application.OnTime Zeit, "Uhr_Starten"

  

End Sub


Aber was soll das? Die Mappe ausbremsen?

Gruß aus'm Pott
Udo
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Hans-Georg
17.05.2026 15:55:49
Warum laufende Uhrzeit "Erklärung"
Moin euch allen,
ich dachte mir, dass es nicht schaden kann, die aktuelle Uhrzeit auf einem "Rechnungsformular" zu haben.

Hier handelt es sich um einen "Wiegeschein auf geeichter Waage" das ganze nach der Vorschrift von der Stiftung E.A.R. (europäische Vorschrift)

Es wird zwar schon die "Eingangswiegung" und die "Ausgangswiegung" mit der Uhrzeit erfasst ( z. B. 11:00 Uhr) - ( z. B. 11:15 Uhr )
aber ich dachte mir eine Uhrzeit beim Drucken & Speichern wäre nicht schlecht. (Zwar keine Vorschrift aber genauer)

Vielen Dank für eure Unterstützung und einen schönen Sonntag noch

Hans-Georg
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Daniel
17.05.2026 16:33:34
AW: Warum laufende Uhrzeit "Erklärung"
Hi

Beim Drucken oder Speichern als PDF könntest du das aktuelle Druckdatum und -zeit über die Kopf- oder Fußzeile in der Seiteneinrichtung in das Blatt einfügen.

Gruß Daniel
Auf Beitrag antworten
Forumbeitrag
Excel-Version des Fragestellers:
2019
Erfahrungslevel des Fragestellers:
Kaum Excel/VBA-Kenntnisse
Case
17.05.2026 19:18:35
Wenn es dir...
Moin Hans-Georg, :-)

... ums speichern bzw. drucken geht könntest du die entsprechenden Ereignisse nutzen? ;-)
https://learn.microsoft.com/de-de/office/vba/api/excel.workbook.beforeprint
https://learn.microsoft.com/de-de/office/vba/api/Excel.Workbook.BeforeSave

Also sowas unter "DieseArbeitsmappe": ;-) 
Option Explicit

Private Sub Workbook_BeforePrint(Cancel As Boolean)

    If ActiveSheet.Name = "Rechnung" Then Worksheets("Rechnung").Range("CT49").Value = Format(Time, "hh:mm:ss")

End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

    If ActiveSheet.Name = "Rechnung" Then Worksheets("Rechnung").Range("CT49").Value = Format(Time, "hh:mm:ss")

End Sub

Eventuell muss man noch anpassen - also statt ActiveSheet.Name mit ActiveSheet.CodeName arbeiten (falls Rechnung mal umbenannt wird). ;-)

Alles nur Ansätze und Hinweise. ;-)

Servus
Case
Auf Beitrag antworten