Vielen Dank für Ideen.
Gruss,
Peter
'Im TabellenBlatt
Option Explicit
Dim bolLäuftSchon As Boolean 'sonst läuft es mehrfach
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 1 Then
Target.Offset(0, 1).Value = Time
If bolLäuftSchon = True Then Exit Sub
Call Blinken
bolLäuftSchon = True 'sonst läuft es mehrfach
End If
End Sub
'In einem Modul
Sub Blinken()
Dim Zelle As Range
For Each Zelle In Range("A1:A30").Cells
If Zelle.Offset(0, 1).Value <> "" Then
If Zelle.Offset(0, 1).Value + TimeValue("00:30:00") < Time Then
If Zelle.Offset(0, 2) = "" Then
Zelle.Offset(0, 2) = Time
Else
Zelle.Offset(0, 2) = ""
End If
End If
End If
Next
Application.OnTime Now + TimeValue("00:00:02"), "Blinken"
End Sub