Zeit Ablauf Fenster öffnen
Kramer
habe ein für mich nicht zu bewältigendes Problem.
Ich würde gerne bei einer Uhrzeit eingabe nach 30 min ein Fenster mit abfragen öffnen.
ein Bekannter hat mir schon so was in die Richtung gebaut, leider funktioniert das nur wenn ich den Befehl Makro Ausführen betätige.
Das steht unter Modul 1
Function info()
erinnerung.Show
End Function
Sub UhrzeitTesten()
Dim meldezeit As Date, jetzt As Date
If Range("b9").Value = "" Then Exit Sub
On Error Resume Next
meldezeit = Range("b9").Value
If Err.Number 0 Then
On Error GoTo 0
MsgBox "Zelle b9 enthält keine korrekte Zeitangabe."
Exit Sub
End If
On Error GoTo 0
jetzt = Format(Now(), "hh:mm")
If jetzt >= meldezeit Then
MsgBox "Meldezeit in der Vergangenheit"
Exit Sub
End If
Application.OnTime meldezeit, "info"
End Sub
Jetzt schon vielen Dank.
Gruß Sven
Anzeige