100013

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

Die Beispieldatei können Sie direkt hier downloaden: