Laufende Uhrzeit in Zelle eintragen

 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