Userform alle 3 Stunden anzeigen lassen

[dragonxxl]

Hallo und guten Morgen,

habe eine Userform erstellt ( Userform1). Sie startet beim öffnen der Datei und sie schließt sich automatisch nach 10 Sekunden.

Möchte gerne das sie alle drei Stunden angezeigt wird. Das habe ich leider nicht hin bekommen.

Was muss man in das Private Sub Workbook_Open() schreiben damit die Userform alle 3 Stunden gezeigt wird ?

Danke und Gruß dragonxxl

[schauan]

Hallöchen,

Dein Excel ist die ganze Zeit offen und der Bildschirmschoner kommt nicht? Dann schaue Dir mal Application.OnTime an.

Falls Excel nicht offen ist, starte die Excel mit der Datei alle 3 Stunden mit dem Taskmanager. Musst Du ggf. mit Hilfe eines Scripts machen.

[dragonxxl]

Hallo.
Das habe ich schon versucht.
Kommt aber die Fehlermeldung das Makro wurde nicht gefunden

Code:

Private Sub Workbook_Open()
Application.OnTime TimeValue("08:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("11:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("14:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("17:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("20:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("23:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("00:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("03:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("06:00:00"), "UserForm1.Show"
End Sub

[schauan]

Hallöchen,

packe das Kommando in ein Sub und rufe dieses auf.

[dragonxxl]

Hallo.

Das habe ich jetzt in DieseArbeitsmappe:

Code:

Private Sub Workbook_Open()
Call Aufrufen_
End Sub

 und das in Modul1:

Code:

Sub Aufrufen_()
Application.OnTime TimeValue("08:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("10:20:00"), "UserForm1.Show"
Application.OnTime TimeValue("14:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("17:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("20:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("23:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("00:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("03:00:00"), "UserForm1.Show"
Application.OnTime TimeValue("06:00:00"), "UserForm1.Show"
End Sub

Dann bekomme ich aber eine  Sytemfehler.

[dragonxxl]

Habe es hin bekommen.

HAbe Userform1.show nochmal als einzelne Procedur gesetzt