Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
116to120
116to120
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeitüberwachung, interaktives Macro

Zeitüberwachung, interaktives Macro
30.04.2002 10:46:29
Peter Addor
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Zeitüberwachung, interaktives Macro
30.04.2002 12: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

Anzeige
Re: Zeitüberwachung, interaktives Macro
02.05.2002 10:08:02
Peter Addor
Vielen Dank, Mischa, Du hast mir sehr geholfen (auch wenn ich Deine Prozedur noch nicht ganz verstehe, aber ich arbeite daran)
Gruss,
Peter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige