Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
232to236
232to236
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

MsgBox ohne "OK-Button"

Forumthread: MsgBox ohne "OK-Button"

MsgBox ohne "OK-Button"
17.03.2003 12:59:21
BernhardStock
Hallo Forum!
Wie erzeuge ich eine MsgBox die nach ca. 5 Sec. alleine Verschwindet?

Danke,

Bernhard

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: MsgBox ohne "OK-Button"
17.03.2003 13:01:23
Richard

ies ist nur mit einer Userform möglich

Re: MsgBox ohne "OK-Button"
17.03.2003 13:03:38
BernhardStock

... und wie müsste die Aussehen?
Hast Du einen Tipp für mich??

Danke,
B.

Re: MsgBox ohne "OK-Button"
17.03.2003 13:04:58
Richard

für 2 Sekunden


Anzeige
Re: MsgBox ohne "OK-Button"
17.03.2003 13:07:53
Harald Kapp

Hallo Bernhard,
ich fürchte, mit Office97 hast Du schlechte Karten. Da die Programmausführung während der Anzeige der MsgBox steht, besteht keine Möglichkeit, die MsgBox automatisch zu schließen.

Gruß Harald

1000 Dank o.T. :-)
17.03.2003 13:10:26
BernhardStock

.

Re: MsgBox ohne "OK-Button"
19.03.2003 15:02:30
Richard

ich habe mal in meinem Archiv nachgesehen und folgenden Code gefunden.

die Box hat ein Ok Button aber sie wird nach 3 Sekunden geschlossen

Anzeige
Danke! o.T.
19.03.2003 15:30:38
BernhardStock

.

Ganz einfache Lösung
20.03.2003 19:08:32
Gerhard S.

Hallo,

ich hab das Problem ganz einfach gelöst, in ein leeres Tabellenblatt hab ich in den Bereich B2:K10 was reingeschrieben, als Info, dieses Blatt heisst auch INFO. Beim Start der Datei, wird mir dieses Info dann für 2 Sekunden angezeigt

dieses alles muss im VBA-Modus in "DieseArbeitsmappe", dann wird es jedesmal beim öffnen der Datei gestartet. Die Linke obere Ecke beginnt bei H12.

mfg

Gerhard S.

Anzeige
Danke, funktioniert gut o.T.
24.03.2003 14:45:27
BernhardStock

.

;
Anzeige

Infobox / Tutorial

MsgBox ohne "OK-Button" in Excel VBA erstellen

Schritt-für-Schritt-Anleitung

Um eine MsgBox ohne "OK-Button" zu erstellen, musst Du eine Userform verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Erstelle eine neue Userform:

    • Klicke im Menü auf Einfügen > Userform.

  3. Füge ein Textfeld hinzu:

    • Ziehe ein Label-Steuerelement auf die Userform und schreibe den gewünschten Text hinein.

  4. Füge den folgenden Code hinzu:

    • Klicke mit der rechten Maustaste auf die Userform und wähle Code anzeigen. Füge diesen Code ein:
    Private Sub UserForm_Activate()
   Application.Wait (Now + TimeValue("0:00:05")) ' Warte 5 Sekunden
   Unload Me ' Schließt die Userform
End Sub

  5. Starte die Userform:

    • Erstelle ein Modul und füge diesen Code hinzu, um die Userform zu starten:
    Sub ShowInfoBox()
   UserForm1.Show
End Sub

  6. Testen:

    • Führe ShowInfoBox aus, um die Userform anzuzeigen. Sie wird nach 5 Sekunden automatisch geschlossen.

Häufige Fehler und Lösungen

  • Fehler: Userform bleibt offen
    Lösung: Stelle sicher, dass der Unload Me-Befehl im Code enthalten ist.

  • Fehler: Anwendung bleibt hängen
    Lösung: Überprüfe, ob die Wartezeit korrekt angegeben ist. Verwende Application.Wait.

Alternative Methoden

Eine andere Möglichkeit, eine InfoBox ohne einen "OK-Button" zu erstellen, besteht darin, ein Info-Blatt zu verwenden:

  1. Erstelle ein neues Tabellenblatt und benenne es z.B. "INFO".
  2. Füge in den Zellen B2:K10 den gewünschten Text ein.

  3. Verwende den folgenden Code in "DieseArbeitsmappe":

    Private Sub Workbook_Open()
   Sheets("INFO").Visible = True
   Application.Wait (Now + TimeValue("0:00:02")) ' Sichtbar für 2 Sekunden
   Sheets("INFO").Visible = False
End Sub

Praktische Beispiele

Hier sind einige Beispiele für die Verwendung der MsgBox ohne Bestätigung:

  • Einfaches Informationsfeld:

    Sub InfoMsgBox()
  MsgBox "Das ist eine Info.", vbInformation, "Hinweis"
  Application.Wait (Now + TimeValue("0:00:03")) ' Warte 3 Sekunden
End Sub

  • Benutzerdefinierte Userform: Du kannst die Userform anpassen, um verschiedene Farben oder Schriftarten zu verwenden, um die Info visuell ansprechender zu gestalten.

Tipps für Profis

  • Nutze die Eigenschaften der Userform, um das Design anzupassen.
  • Experimentiere mit Animationen oder anderen Steuerelementen, um die Benutzerinteraktion zu verbessern.
  • Denke daran, dass Userforms in verschiedenen Excel-Versionen (ab Excel 2000) unterstützt werden, aber die Wartezeit-Methoden können je nach Version variieren.

FAQ: Häufige Fragen

1. Kann ich eine MsgBox ohne Bestätigung in Excel 97 erstellen?
Leider gibt es in Excel 97 Einschränkungen, die eine automatische Schließung der MsgBox verhindern.

2. Wie kann ich die Wartezeit anpassen?
Ändere den Wert in TimeValue("0:00:05") auf die gewünschte Zeit in Sekunden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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