ich möchte, dass eine Meldung zB:
"Einen Moment bitte, Daten werden gespeichert!"
angezeigt und ohne Bestätigung nach n sekunden wieder geschlossen wird.
Grüße nico
Sub MsgBox3Sekunden()
' von Franz W Herber.de
' Verweis auf Microsoft Scripting Runtime
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch...")
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub
Um eine Msgbox für eine bestimmte Anzahl von Sekunden in Excel anzuzeigen, kannst du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
VBAProject (deineDatei.xlsx)
und wähle Einfügen > Modul
.Kopiere den folgenden Code in das Modul:
Sub MsgBox3Sekunden()
' von Franz W Herber.de
' Verweis auf Microsoft Scripting Runtime
Dim WsShell
Dim intText As Integer
Set WsShell = CreateObject("WScript.Shell")
intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen.", 3, "Automatisch...")
' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub
Führe das Skript aus:
F5
oder klicke auf Ausführen
im Menü.Die Msgbox wird nun für 3 Sekunden angezeigt und schließt sich automatisch. Du kannst die Zahl 3
im Code anpassen, um die Dauer entsprechend zu ändern.
Extras > Verweise
und aktiviere den Verweis.Eine alternative Methode zur Anzeige einer temporären Benachrichtigung ist die Verwendung von UserForms in VBA. Mit UserForms kannst du eine benutzerdefinierte Form erstellen, die nach einer festgelegten Zeit automatisch geschlossen wird. Hierfür ist jedoch ein etwas komplexerer VBA-Code erforderlich.
Hier ist ein Beispiel, wie du die Msgbox für 5 Sekunden anzeigen lassen kannst:
Sub MsgBox5Sekunden()
Dim WsShell
Set WsShell = CreateObject("WScript.Shell")
WsShell.Popup "Die Meldung bleibt 5 Sekunden sichtbar.", 5, "Benachrichtigung"
End Sub
Ändere einfach die Zahl 5
in WsShell.Popup
, um die Zeit anzupassen.
1. Kann ich die Dauer der Msgbox beliebig einstellen?
Ja, du kannst die Zahl im WsShell.Popup
-Befehl anpassen, um die Dauer in Sekunden zu ändern.
2. Funktioniert dieser Code in allen Excel-Versionen?
Der bereitgestellte Code wurde unter Excel 2003 getestet, sollte aber auch in neueren Versionen funktionieren. Überprüfe jedoch, ob die entsprechenden Verweise aktiviert sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen