Office: MsgBox nach bestimmter Zeit automatisch schließen

MMusic01 · 6. März 2019

Hallo ihr Lieben,

der Titel des Beitrags lässt vielleicht vermuten, dass ich das allwissende Google noch nicht damit gefüttert hätte - habe ich aber. Und die Ergebnisse waren ernüchternd:

Code:

Public Sub test()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Hallo", 3, "Info"
Set objShell = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Da erscheint eine MsgBox mit einem OK-Butten die nicht nach 3 Sekunden von alleine verschwindet.

Und was das hier angeht: https://www.excelforum.com/excel-pro...ith-timer.html habe ich noch nie mit UserForm gearbeitet, nur mit Modulen.

Könnte mir denn mit diesem Vorwissen jemand verraten wie ich es schaffe, dass die MsgBox automatisch nach n-Sekunden wieder verschwindet, ohne, dass ich den OK-Button betätigen muss?

:)

MisterBurns · 8. März 2019

habe ich noch nie mit UserForm gearbeitet, nur mit Modulen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ja und? Wieso fängst du nicht einfach damit an? Du hast ja schließlich auch irgendwann zum ersten mal mit einem Modul gearbeitet.
Die Programmierung ist nicht anders und wie man das Userform selbst erstellt, dafür findest du auf Youtube unzählige Beispiele.

R J · 8. März 2019

Hi Yoshi,

wenn Du Code schon kopierst, dann doch wenigstens richtig. Das Beispiel in Deinem Link verwendet eine Variable Res (für Result vermutlich) vom Typ long. Die hast Du glatt unterschlagen. Da aber die Funktion PopUp des Objektes einen Long liefert, brauchst Du auch einen Empfänger ....

MMusic01 · 8. März 2019

Den Code habe ich wonaders her, nicht von dem Link. Das ist nur ein weiteres Beispiel

MisterBurns · 8. März 2019

Du hast das Erstellen eines Userforms in 10 Minuten erlernt...

Storax · 8. März 2019

Code:

Option Explicit

Private Declare Function MessageBoxTimeOut _
Lib "user32.dll" Alias "MessageBoxTimeoutA" _
( _
ByVal hWnd As Long, _
ByVal lpText As String, _
ByVal lpCation As String, _
ByVal uType As Long, _
ByVal wLanguageId As Integer, _
ByVal dwMiliseconds As Long _
) As Integer

Sub test()
Dim x%
x = MessageBoxTimeOut(0, "Hallo", "TimeoutTest", vbYesNo Or vbInformation, 0, 3000) '5000 = 5 Sekunden
Select Case x
Case Is = 1, 6, 32000
Debug.Print "OK, Ja oder TimeOut"
Case Is = 2
Debug.Print "Abrechen"
Case Is = 7
Debug.Print "Nein"
Case Else
Debug.Print x
End Select

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

MMusic01 · 8. März 2019

Danke Storax, es funktioniert perfekt!

Office: MsgBox nach bestimmter Zeit automatisch schließen

MsgBox nach bestimmter Zeit automatisch schließen

MsgBox nach bestimmter Zeit automatisch schließen

MsgBox nach bestimmter Zeit automatisch schließen

MsgBox nach bestimmter Zeit automatisch schließen - Similar Threads - MsgBox bestimmter Zeit

MsgBox mit Berechnung und Eintrag in Tabelle

VBA: Mit MsgBox bestimmte Inhalte von Zeile leeren

VBA-Code Arbeitsblatt wechseln

MsgBox bei zwei Werten

MsgBox in Excel anzeigen lassen per Word VBA

MsgBox Ja / Nein > Nein als Standard

MsgBox bei Eingabe in bestimmter Zelle mit Bedingung