POP UP wenn Uhrzeit erreicht

Hallo Leute,
ich habe ein Problem
Ich habe eine Tabelle, in der in Spalte A aufsteigend Uhrzeiten eingetragen sind
In Zelle C 2 habe ich über VBA eine laufende Uhr programmiert.
Jetzt möchte ich, immer wenn eine Uhrzeit aus Spalte A erreicht ist, das ein POP UP aufgeht mit dem Inhalt aus Spalte C und erst wieder schließt wenn ich mit ok bestätige
Beispiel:
SpalteA SpalteB Spalte C ...
05:35 Tim Geburtstag
06:13 Gabi Anruf
07:14 Tom e-mail
Wenn also jetz die Uhr auf 06:13 springt soll ein POP UP aufgehen mit Inhalt Anruf
würde ich das Fenster nicht mit ok schließen soll um 07:14 das nächste POP UP aufgehen
Ich hoffe es ist soweit alles verständlich und es kann mir jemand helfen
Vielen Dank im Vorraus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
ne laufende Uhr in Excel ist Unsinn.
da stellst du dir lieber einen Wecker auf den Schreibtisch.
das mit dem PopUp könnte man so realisieren.
1. Erstelle in der Datei eine Userform (Userform1) mit einem Label (Label1). Die Capition des Labels sollte leer sein. Die Userform muss die Eigenschaft: ShowModal = False haben.
2. Schreibe in ein allgemeines Menü folgendes Makro:

Sub PopUpZeigen()
With UserForm1
.Show
With .Label1
.Caption = .Caption & Format(Time, "hh:mm ") & _
WorksheetFunction.VLookup(CDbl(Time), ThisWorkbook.Sheets("Tabelle1").Range("A:B"),  _
2, True) & vbLf
End With
End With
End Sub

3. Schreibe noch ein zweites Makro mit folgendem Code:

Sub PopUpsInitialisieren()
Dim Zelle As Range
With ThisWorkbook.Sheets("Tabelle1").Columns(1)
If WorksheetFunction.Count(.Cells) > 0 Then
For Each Zelle In .SpecialCells(xlCellTypeConstants, 1)
If Zelle.Value > Time Then Application.OnTime Date + Zelle.Value, "PopUpZeigen"
Next
End If
Next
End Sub

dieses Makros musst du morgens einmal laufen lassen, nach dem du deine Zeitentabelle gefüllt hast.
des ruft dann das PopUp-Makro zum gewünschten Zeitpunkt auf, das Popup-Makro startet dann zu der genannten Uhrzeit und zeigt den Text mit an.
Das gute ist, diese Makrostartliste mit Application.Ontime ist von anderen laufenden Makros unabhängig.
Sie funktioniert sogar, wenn du diese Datei zwischen durch schließt, denn hier merkt sich die Excel-Anwendung, dass du dieses Makro um die bestimmte Uhrzeit ausführen willst und wird das dann auch tun.
Vorteil für dich ist, dass du in der Zwischenzeit mit Excel ganz normal mit anderen Dingen weiterarbeiten kannst.
Du darfst nur excel nicht schließen.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

POP UP wenn Uhrzeit erreicht

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread