Re: Zeitüberwachung, interaktives Macro
30.04.2002 14:33:01
Micha*
meinst du es etwa so?
natürlich noch ein wenig auf dein Blatt
anpassen!
'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