für eine MsgBox welche nach 3 Sekunden wieder automatisch verschwinden soll, habe ich folgenden Code aus der Recherche in mein entsprechendes Tabellenblatt eingefügt:
Option Explicit
Sub MsgBox3Sekunden()
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("Wscript.Shell")
intText = WsShell.Popup("Interne Transportzeit wird berechnet.", 3, "Automatisch...")
End Sub
Es passiert aber nix....
Habe ich irgendetwas falsch gemacht?
Bitte mal kurz draufschauen.
Vielen Dank
thomas