Laufende Uhrzeit in Zelle eintragen

100013


Auf dem ersten Tabellenblatt wird in die Zelle A1 die aktuelle Uhrzeit eingetragen.

Es werden die Sekunden hochgezählt, so dass es wie eine richtige Digitaluhr wirkt.

Zum starten der Uhr müssen sie einfach das Makro 'starten' aktivieren.

 

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 diesem Makro wird die Aktualisierung der Uhrzeitanzeige beendet.

 

Sub beenden()

t = False

End Sub