Um eine MsgBox in Excel VBA automatisch nach 2 Sekunden zu schließen, kannst du den folgenden Code verwenden:
Public Sub test()
Dim objShell As Object
Set objShell = CreateObject("WScript.Shell")
objShell.Popup "Hallo", 2, "Info"
Set objShell = Nothing
End SubALT + F11, um den VBA-Editor zu starten.Fehler: "Objekt nicht gefunden"
WScript.Shell hast. Möglicherweise musst du dein Makro in einer Umgebung ausführen, die die Windows-Skripting-Umgebung unterstützt.Fehler: MsgBox wird nicht geschlossen
Popup-Befehl. Er sollte auf 2 gesetzt sein, um die MsgBox nach 2 Sekunden zu schließen.Falls du eine MsgBox ohne Bestätigung möchtest, kannst du ein UserForm verwenden. Damit kannst du ein Fenster erstellen, das nach einer bestimmten Zeit automatisch geschlossen wird.
Private Sub UserForm_Activate()
Application.Wait (Now + TimeValue("0:00:02"))
Unload Me
End SubHier sind einige nützliche Anwendungen für eine automatisch schließende MsgBox:
Mit der Funktion objshell.popup kannst du verschiedene Arten von Benachrichtigungen in deinen Excel-Anwendungen implementieren.
1. Kann ich die MsgBox so programmieren, dass sie länger als 2 Sekunden offen bleibt?
Ja, ändere einfach den zweiten Parameter des Popup-Befehls auf die gewünschte Zeit in Sekunden.
2. Ist es möglich, die MsgBox ohne ein OK-Feld erscheinen zu lassen?
Ja, das ist mit einem UserForm möglich, da diese mehr Anpassungsmöglichkeiten bieten als eine Standard-MsgBox.
3. Welche Excel-Version benötige ich für die Verwendung von VBA?
VBA ist in den meisten Versionen von Excel verfügbar, einschließlich Excel 2010, 2013, 2016 und neuer.