AW: MSG nach jeder Stunde anzeigen
22.09.2015 09:25:30
Salvadore
Ich hab jetzt mal ein User Form erstellt.
In DieserArbeitsmappe habe ich folgenden Code.
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'--- aufruf zurücknehmen, wenn Datei geschlossen wird.
If Now > Nächste Then Application.OnTime Nächste, "Hinweis", Schedule:=False
End Sub
Private Sub Workbook_Open()
'--- automatischer erster aufruf beim Öffnen der Datei
Nächste = Date + TimeSerial(Hour(Now) - (Minute(Now) >= 45), 45, 0)
Application.OnTime Nächste, "Hinweis"
End Sub
Im Modul habe ich folgenden:
Option Explicit
Public Nächste As Date
Sub Hinweis()
UserForm1.Show
Nächste = Date + TimeSerial(Hour(Now) - (Minute(Now) >= 45), 45, 0)
Application.OnTime Nächste, "Hinweis"
End Sub
Irgendwie tut sich da aber nichts um 45. Mit der msgBox funktionierts.
Wenn ich jetzt aber die Datei beende kommt ein laufzeitfehler 1004 "Die Methode "onTime" für _
das Objekt'_Application' ist fehlgeschlagen. und er makiert mir
Application.OnTime Nächste, "Hinweis", Schedule:=False
gelb.