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
Als Antwort auf diesen Beitrag
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"