Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox für 2 Sekunden einblenden

Forumthread: MsgBox für 2 Sekunden einblenden

MsgBox für 2 Sekunden einblenden
07.09.2005 12:19:40
joko0803
Hallo Profis,
ich habe eine MsgBox estellt.
MsgBox ("Erstellt von joko0803").
wie kann ich steuern, dass diese nur ca. 2 Sekunden eingeblendet bleit?
Danke schon mal für euer Interesse an diesem Thema.
joko
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: MsgBox für 2 Sekunden einblenden
07.09.2005 12:27:18
Hajo_Zi
Hallo joko,

Option Explicit
Sub MsgBox3Sekunden()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
' 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
Sub MsgZeit()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
'   von K.Rola
'   kein Verweis notwendig
Const bytZeit As Byte = 3
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden!" & Space(10), bytZeit, "gebe bekannt...")
Set objWSH = Nothing
End Sub

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem Windows 2000 SP4 und Excel Version 2000 SP3.


Anzeige
AW: MsgBox für 2 Sekunden einblenden
07.09.2005 13:22:04
joko0803
Hallo Hajo,
vielen, vielen Dank.
Es ist doch immer wieder erstaunlich was VBA alles kann ... vor allem du, ihr, das auch versteht richtig einzusetzen.
Gruß
Johann Kopp
;
Anzeige
Anzeige

Infobox / Tutorial

MsgBox in Excel für 2 Sekunden einblenden

Schritt-für-Schritt-Anleitung

Um eine MsgBox in Excel für 2 Sekunden anzuzeigen, kannst du VBA (Visual Basic for Applications) verwenden. Hier ist eine kurze Anleitung:

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

  2. Füge ein neues Modul hinzu: Rechtsklicke auf "VBAProject (DeineDatei.xlsm)" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Option Explicit
Sub MsgBox2Sekunden()
   Dim WsShell As Object
   Set WsShell = CreateObject("WScript.Shell")
   WsShell.Popup "Dies ist ein Excel Hinweis, der nach 2 Sekunden verschwindet.", 2, "Hinweis", 64
   Set WsShell = Nothing
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus: Drücke ALT + F8, wähle MsgBox2Sekunden aus und klicke auf "Ausführen".

Jetzt wird das Excel Infofenster für 2 Sekunden angezeigt und danach automatisch geschlossen.

Häufige Fehler und Lösungen

  • Fehler: "Komponente nicht gefunden" beim Ausführen des Makros.

    • Lösung: Stelle sicher, dass dein Excel korrekt installiert ist und dass du die Makros aktiviert hast.

  • Fehler: MsgBox bleibt länger als 2 Sekunden sichtbar.

    • Lösung: Überprüfe den Parameter im WsShell.Popup Befehl. Stelle sicher, dass du die richtige Zeit (in Sekunden) angibst.

Alternative Methoden

Wenn du keine VBA-Lösung verwenden möchtest, gibt es auch andere Ansätze:

  • Verwendung von benutzerdefinierten Formulare: Du kannst ein benutzerdefiniertes Formular erstellen, das automatisch geschlossen wird. Dies ist jedoch komplexer und erfordert mehr VBA-Kenntnisse.

  • Verwendung von Excel-Diagrammen: Eine kurze Nachricht kann auch in einem Excel-Diagramm angezeigt werden, allerdings bleibt diese dauerhaft sichtbar, bis du sie manuell entfernst.

Praktische Beispiele

Hier ist ein einfaches Beispiel, das du anpassen kannst:

Sub BeispielHinweis()
    Dim WsShell As Object
    Set WsShell = CreateObject("WScript.Shell")
    WsShell.Popup "Achtung! Dies ist ein Hinweis.", 2, "Warnung", vbExclamation
    Set WsShell = Nothing
End Sub

Dieses Beispiel zeigt eine Warnung für 2 Sekunden an. Du kannst den Text sowie den Titel nach Belieben anpassen.

Tipps für Profis

  • Verwende benutzerdefinierte Icons: Du kannst die Art der Popup-Nachricht anpassen, indem du verschiedene Werte für das Icon-Argument in WsShell.Popup verwendest, z.B. vbCritical, vbInformation etc.

  • Kombiniere mit anderen VBA-Funktionen: Nutze das Popup in Kombination mit anderen VBA-Funktionen, um komplexere Interaktionen zu schaffen.

FAQ: Häufige Fragen

1. Wie kann ich die Dauer der MsgBox anpassen?
Du kannst die Dauer ändern, indem du den zweiten Parameter in WsShell.Popup anpasst. Für 2 Sekunden setze ihn auf 2.

2. Funktioniert dies in allen Excel-Versionen?
Ja, die vorgestellten Methoden sollten in den meisten Excel-Versionen ab 2000 funktionieren, solange VBA unterstützt wird. Achte darauf, dass die richtigen Berechtigungen für das Ausführen von Makros gesetzt sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige