Zeitüberwachung, interaktives Macro



Excel-Version: 2002
nach unten

Betrifft: Zeitüberwachung, interaktives Macro
von: Peter Addor
Geschrieben am: 30.04.2002 - 10:46:29

In der ersten Spalte steht eine Liste von Namen. Wenn der Benutzer auf einen der Namen klickt, soll in der Zelle rechts davon die aktuelle Uhrzeit erscheinen. 30 Minuten später soll in der nächsten Zelle rechts die aktuelle Uhrzeit rot blinken. Wie lässt sich so etwas realisieren? Ist das überhaupt möglich?
Vielen Dank für Ideen.
Gruss,
Peter

nach oben   nach unten

Re: Zeitüberwachung, interaktives Macro
von: Micha*
Geschrieben am: 30.04.2002 - 12:33:01

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

nach oben   nach unten

Re: Zeitüberwachung, interaktives Macro
von: Peter Addor
Geschrieben am: 02.05.2002 - 10:08:02

Vielen Dank, Mischa, Du hast mir sehr geholfen (auch wenn ich Deine Prozedur noch nicht ganz verstehe, aber ich arbeite daran)
Gruss,
Peter

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "eigene Icons auf Buttons"