Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Hallo,

alles klar werde also weiter mit der 2. UserForm arbeiten.
Noch mal danke für die Hilfe und vielleicht bis bald.
Viele Grüße ...
talisch

Hallo zusammen,
ich bin neu hier und habe eine Frage zu einem nicht neuen Thema "Eine MessageBox nach bestimmter Zeit schließen".
Ich habe eine UserForm auf der sich verschiedene Buttons befinden.
Über einen dieser Buttons soll zu Beginn „Ihre“ MessageBox für 3s angezeigt werden.
Das klappt auch soweit, allerdings muss ich den Mauszeiger von oben genannten Button verschieben, es ist egal wohin, nur weg vom Button.
Wenn ich das nicht mache bleibt die MessageBox in der Anzeige und es geht somit nicht weiter.
Ein Experimentieren mit den Parametern der MessageBox bringt keine Besserung.

Wo könnten die Ursachen dafür liegen?

Ich bin für jeden Hinweis dankbar.

P.S.
Wenn ich das Codebeispiel über einen Button direkt von einem Tabellenblatt starte, funktioniert es einwandfrei.

 

Sub MessageBox_zeitgesteuert()
'** Dimensionierung der Variablen
Dim intAnz As Integer
Dim objShell As Object
Dim lngDauer As Long

'** Objektverweis auf die WScript.Shell setzen
Set objShell = CreateObject("WScript.Shell")

'** Anzeigedauer festlegen
lngDauer = 3

'** Anzeige der MessageBox mit Anzeigetext und Titelleiste
intAnz = objShell.Popup("Die Anzeigedauer beträgt " & lngDauer & " Sekunde/n", _
  lngDauer, "Inhalt der Titelleiste", vbOKOnly)
End Sub