Supportnet Computer
Planet of Tech

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.

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?


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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: