Hallo,

hier die Lösung: 

Folgenden Code in das Codefenster von DieseArbeitsmappe

Option Explicit

Private Sub Workbook_Open()
 Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
 On Error Resume Next
 Application.OnTime EarliestTime:=DaEt, Procedure:="Zeitmakro", Schedule:=False
End Sub

und in ein allgemeines Modul diesen

Option Explicit
' Code "Zeitmakro" von Hajo Ziplies,
Public DaEt As Date

Sub Zeitmakro()
 ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Time, "hh:mm:ss")
 DaEt = Now + TimeValue("00:00:01")
 Application.OnTime DaEt, "Zeitmakro"
End Sub

In Tabelle1 A1 wird die laufende Zeit angezeigt.

Viel Spaß damit. :)
LG
Benny

Ich meinte: Wenn Zelle T15 und U15 in der aktuellen Uhrzeit liegen, dann sollen die beiden Zellen + M15 fett geschrieben sein.

Mit der Flex. Die Kette wird das nicht mitmachen glaub ich. ^^