ich eine Frage zur MsgBox....
Ist es möglich, eine MsgBox automatisch nach 3 Sek. ausblenden zu lassen, oder bedarf es dazu eine UserForm?
VG Heiner
Private Sub Test()
' Meldung anzeigen.
Wait 2, "Die Box schließt sich nach 2 Sekunden"
End Sub
Private Sub Wait(Seconds, Message)
On Error Resume Next
Dim Shell
If IsEmpty(Shell) Then Set Shell = CreateObject("wscript.shell")
Shell.Popup Message, Seconds, "", 0
End Sub