Supportnet / Forum / Tabellenkalkulation
Messagebox nach definierter Zeit schließen
Frage
Hallo!
wie kann ich einen normale Messagebox nach einer vordefinierten Zeit, z.B. 30 Sek. automatisch wieder schließen?
[code]
MsgBox( _
"Ihre Eintragung wurde gespeichert." & Chr(13) & _
Chr(13) & _
"Bitte denken Sie daran, die Datei zu schließen." & Chr(13) & _
Chr(13) & _
"Ihre Kollegen danken es Ihnen" & Chr(13) & _
Chr(13) & _
"(In 5 Minuten wird diese Datei geschlossen!)" & Chr(13) & _
Chr(13) & _
Chr(13))
[/code]
Viele Grüße und Danke
Jones
Antwort 1 von coros
Hi Jones,
mit einer MsgBox geht das nicht. Du kannst das höchstens über eine UserForm relisieren. Der Code würde dann so aussehen.
Einfügen musst Du den Code in den Code der UserForm.
Ich hoffe, Du kommst klar. Wenn nicht melde Dich noch mal.
mit einer MsgBox geht das nicht. Du kannst das höchstens über eine UserForm relisieren. Der Code würde dann so aussehen.
Private Sub UserForm_Activate()
newHour = Hour(Now())
newMinute = Minute(Now())
newSecond = Second(Now()) + 30
waitTime = TimeSerial(newHour, _
newMinute, newSecond)
Application.Wait waitTime
Unload UserForm1
End Sub
Einfügen musst Du den Code in den Code der UserForm.
Ich hoffe, Du kommst klar. Wenn nicht melde Dich noch mal.
Antwort 2 von Nepumuk
Wer behauptet, dass das mit einer MsgBox nicht geht?
Gruß
Nepumuk
Public Sub MsgBoxZeit()
Dim objWSH As Object
Set objWSH = CreateObject("WScript.Shell")
objWSH.Popup "Ich bin in 3 Sekunden verschwunden!", 3, "Information"
Set objWSH = Nothing
End Sub
Gruß
Nepumuk
Antwort 3 von JonesM
Hallo Nepumuk,
funktioniert bei mir leider nicht (Excel2002 und XP).
Hallo Coros,
hatte noch keine Zeit, mich damit zu beschäftigen... die nächsten Tage... ;)
Vielen Dank und Grüße
funktioniert bei mir leider nicht (Excel2002 und XP).
Hallo Coros,
hatte noch keine Zeit, mich damit zu beschäftigen... die nächsten Tage... ;)
Vielen Dank und Grüße