Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Msgbox für n sekunden anzeigen??

Forumthread: Msgbox für n sekunden anzeigen??

Msgbox für n sekunden anzeigen??
07.11.2003 08:38:55
Nico
Hallo,

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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Msgbox für n sekunden anzeigen??
07.11.2003 08:59:58
Hajo_Zi
Hallo 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



Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP Pro.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.


Anzeige
AW: Msgbox für n sekunden anzeigen??
07.11.2003 09:19:47
Nico
Hallo an Alle,

vielen danke für die Hilfestellungen!!

Grüße Nico

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Msgbox für n Sekunden anzeigen


Schritt-für-Schritt-Anleitung

Um eine Msgbox für eine bestimmte Anzahl von Sekunden in Excel anzuzeigen, kannst du ein einfaches VBA-Skript verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke im Projekt-Explorer mit der rechten Maustaste auf VBAProject (deineDatei.xlsx) und wähle Einfügen > Modul.
  3. 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
  4. Führe das Skript aus:

    • Drücke 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.


Häufige Fehler und Lösungen

  • Fehler: "Objekt nicht gefunden": Stelle sicher, dass du die Microsoft Scripting Runtime aktiviert hast. Gehe zu Extras > Verweise und aktiviere den Verweis.
  • Msgbox wird nicht angezeigt: Überprüfe, ob das Skript korrekt kopiert wurde und keine Syntaxfehler enthält.

Alternative Methoden

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.


Praktische Beispiele

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.


Tipps für Profis

  • Nutze Variablen, um den Text der Msgbox dynamisch zu gestalten.
  • Experimentiere mit weiteren VBA-Funktionen, um die Benutzererfahrung zu verbessern, z. B. durch das Hinzufügen von Schaltflächen oder individuellen Designs für UserForms.
  • Stelle sicher, dass deine Excel-Version mit VBA-Skripten kompatibel ist, insbesondere wenn du auf neueren Betriebssystemen arbeitest.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige