Message Box agiert verschieden
Mike
ich habe eine Message Box, die sich nach einigen Sekunden automatisch schließen soll.
Verwende ich den folgenden Code als separates Makro funktioniert alles einwandfrei, rufe ich ihn aber über Call innerhalb eines anderen Makros auf, erscheint zwar auch die Message Box, bleibt dann jedoch so lange eingeblendet, bis ich auf OK klicke.
Weiss jemand, wo der Fehler liegt ?
Sub Box()
Const bytZeit As Byte = 3
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Diese Nachricht zerstört sich in " & bytZeit & " Sekunden von selbst! _
" & Space(10), bytZeit, "Hinweis")
Set objWSH = Nothing
End Sub
Mike
Anzeige