MsgBox nach Zeit
04.08.2022 09:29:44
Berny
ich möchte in einem Makro eine Information für ca. 3 Sekunden anzeigen lassen. Nun war ich faul, und wollte mir keine Userform basteln. Deshalb habe ich im Netz nach einer anderen Lösung gesucht. (Ich wollte auch noch etwas dazu lernen.)
Nun habe ich diese Lösung gefunden.
Sub MsgBox_nachZeit()
Dim Msg As Object
Set Msg = CreateObject("wscript.shell")
Msg.Popup "Text", 3, "Übechrift", vbInformation & vbOKCancel
Set Msg = Nothing
End Sub
Der Wert "3" soll die Zeit zum einblenden sein. Wenn ich "1" eingebe, wird die Nachricht nur ca. 1-2 sec eingeblendet. bei jedem anderen Wert geht die Information nicht mehr weg.Kann mir einer sagen, was ich eingeben muss, dass die Information nach 3 sec. tatsächlich wieder verschwindet?
M.f.G.
Berny