Wie richtet man einen Timer für eine Meldungsbox ein, damit sie sich nach einer bestimmten Zeit automatisch schließt?
Beim Arbeiten mit Excel-Arbeitsmappen setzen Sie häufig VBA-Skripte zur Problemlösung ein. Während deren Ausführung erscheinen gelegentlich Meldungsboxen – und in bestimmten Situationen möchten Sie, dass ausgewählte davon nach einer festgelegten Zeit automatisch verschwinden, statt manuell geschlossen werden zu müssen. In diesem Artikel zeigen wir Ihnen eine effektive Methode, um einen Meldungsbox-Timer zu erstellen, der genau das ermöglicht: die automatische Schließung nach Ablauf der von Ihnen definierten Zeitspanne.
Erstellen eines Meldungsbox-Timers zum automatischen Schließen der Meldungsbox nach einer bestimmten Zeit
Hier erhalten Sie eine VBA-Skriptvorlage zum Erstellen einer Meldungsbox mit Timer.
Angenommen, Sie führen ein VBA-Skript aus, um Zeilen basierend auf einem Zellwert zu verschieben. Sobald die Verschiebung abgeschlossen ist, erscheint eine Meldungsbox, die den erfolgreichen Abschluss der Aktion bestätigt – und sich automatisch nach 4 Sekunden schließt (siehe folgender Screenshot). Gehen Sie dazu wie folgt vor.
1. Öffnen Sie das Fenster Microsoft Visual Basic für Applikationen, klicken Sie auf Einfügen > Modul, und fügen Sie anschließend den VBA-Code ein, mit dem Sie Zeilen basierend auf einem Zellwert verschieben möchten.
2. Kopieren Sie den folgenden VBA-Code 1, und fügen Sie ihn vor den Code ein, den Sie ausführen möchten – siehe folgender Screenshot:
VBA-Code 1:
Private Declare PtrSafe Function CustomTimeOffMsgBox Lib "user32" Alias "MessageBoxTimeoutA" ( _
ByVal xHwnd As LongPtr, _
ByVal xText As String, _
ByVal xCaption As String, _
ByVal xMsgBoxStyle As VbMsgBoxStyle, _
ByVal xwlange As Long, _
ByVal xTimeOut As Long) _
As Long
3. Kopieren Sie den folgenden VBA-Code 2 und fügen Sie ihn vor die Zeile „End Sub“ des auszuführenden Codes ein.
VBA-Code 2:
Call CustomTimeOffMsgBox(0, "Moved successfully. This message box will be closed after 4 seconds", "Kutools for Excel", vbInformation, 0, 4000)
Hinweis: Sie können den Inhalt der Meldungsbox sowie die Anzeigedauer des Dialogfelds ganz nach Ihren Anforderungen anpassen.
4. Nachdem der Code zur Durchführung der Aktion ausgeführt wurde, erscheint eine Meldungsbox, die sich automatisch nach einer bestimmten Zeit – in diesem Fall nach 4 Sekunden – schließt.
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Verwandte Artikel:
- Wie kann eine Meldungsbox angezeigt werden, sobald auf eine bestimmte Zelle in Excel geklickt wird?
- Wie kann man Text aus einer Meldungsbox in Excel kopieren?
- Wie kann beim Aktivieren oder Öffnen eines bestimmten Arbeitsblatts in Excel eine Meldungsbox angezeigt werden?
- Wie kann man eine Meldungsbox anzeigen, um einen Zellbereich oder Zellwerte in Excel anzuzeigen?
- Wie lässt sich eine Meldungsbox anzeigen, sobald sich der Zellwert innerhalb eines bestimmten Bereichs ändert?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins