Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Überschrift Message-Box

Forumthread: Überschrift Message-Box

Überschrift Message-Box
31.01.2003 15:39:39
Andy
Hi Folks,

Hat eine/r von Euch eine Idee, wie ich aus der Standard-Überschrift im Message-Boxen (Microsoft-Excel) eine eigene Überschrift machen kann?

Wbr Andy

Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Überschrift Message-Box
31.01.2003 15:41:29
Hajo_Zi

Hallo Andy

ein Blick in die Hilfe reicht da schon. Dort ist es ganz genau erklärt.

Mldg = MsgBox("Wollen Sie diesen Teil-Auftrag" _
& " wirklich löschen.", vbYesNo + vbQuestion, "Löschabfrage ?", "", 0)


Gruß Hajo

Re: Überschrift Message-Box
31.01.2003 15:42:12
Felix

Hallo Andy,

X = MsgBox _
("Meldung1" & Chr(13) & _
"Meldung2", vbOKOnly + vbCritical, "ÜBERSCHRIFT")

so siehts aus

Gruß
felix

Anzeige
Re: Überschrift Message-Box
31.01.2003 16:04:50
Andy

Hi Felix und Hajo,
Mit

bekomme ich immer die Fehlermeldung "Fehler beim Kompilen, Erwartet: ="

Auch die Syntaxbeschreibung aus der Hilfe
MsgBox(prompt[, buttons] [, title] [, helpfile, context])
bringt mich da nicht weiter... so hab ich es doch gemacht, oder?

Wo ist mein Fehler?

Andy


Anzeige
Ohne Klammern!
31.01.2003 16:10:03
Boris

Gruß Boris

Re: Ohne Klammern!
31.01.2003 16:15:17
Andy

Hi Boris,
Jetzt gehts... Aber in der Syntaxbeschreibung der Hilfe sind doch Klammern angegeben. Und so lange ich das ohne Titel gemacht habe, ging das auch mit Klammern. Ist das Merkwürdig oder verstehe ich das nicht?

Danke für die Lösung. Wbr Andy

Re: Ohne Klammern!
31.01.2003 16:19:06
Hajo_Zi

Hallo andy

D´das Beispiel in der Hilfe sieht aber anders aus als Dein geposteter Code

"Antwort = MsgBox(Mldg, Stil, Titel, Hilfe, Ktxt) " hier steht Antwort= davor

Gruß hajo

Anzeige
;
Anzeige

Infobox / Tutorial

Eigene Überschrift in Excel VBA Message-Box erstellen


Schritt-für-Schritt-Anleitung

Um eine eigene Überschrift in der Message-Box von Excel VBA zu erstellen, kannst du folgendes Vorgehen nutzen:

  1. Öffne den VBA-Editor in Excel (Alt + F11).

  2. Füge ein neues Modul hinzu (Rechtsklick auf „VBAProject“ > Einfügen > Modul).

  3. Schreibe den folgenden Code in das Modul:

    Sub EigeneMsgBox()
       Dim Meldung As String
       Meldung = "Wollen Sie diesen Teil-Auftrag wirklich löschen?"
       MsgBox Meldung, vbYesNo + vbQuestion, "Löschabfrage"
    End Sub
  4. Schließe den VBA-Editor und führe das Makro aus (Entwicklertools > Makros > „EigeneMsgBox“ > Ausführen).

Mit diesem Code kannst du die Standardüberschrift der Message-Box durch „Löschabfrage“ ersetzen. Du kannst die Meldung und den Titel nach deinen Wünschen anpassen.


Häufige Fehler und Lösungen

  1. Fehlermeldung: "Fehler beim Kompilen, Erwartet: ="

    • Lösung: Stelle sicher, dass du keine Klammern um die MsgBox-Funktion verwendest, wenn du keinen Titel angibst. Der richtige Syntax wäre:
      MsgBox "Deine Nachricht", vbOKOnly, "Dein Titel"
  2. Syntax-Probleme bei der Verwendung des Titels:

    • Lösung: Überprüfe die korrekte Syntax der MsgBox. Die richtige Verwendung ist:
      MsgBox Prompt, Buttons, [Title], [Helpfile], [Context]

Alternative Methoden

Wenn du eine Message-Box in Excel VBA ohne Standardtitel anpassen möchtest, kannst du auch die Application.InputBox-Methode verwenden, um eine benutzerdefinierte Eingabeaufforderung mit einem Titel zu erstellen. Beispiel:

Dim BenutzerEingabe As Variant
BenutzerEingabe = Application.InputBox("Bitte gib deinen Text ein:", "Benutzerdefinierte Eingabe")

Diese Methode erlaubt es dir, Informationen vom Benutzer zu sammeln, während du gleichzeitig einen eigenen Titel angibst.


Praktische Beispiele

Hier sind einige Beispiele für die Verwendung von MsgBox mit verschiedenen Titeln:

  1. Kritische Meldung:

    MsgBox "Achtung: Datenverlust droht!", vbCritical, "Kritische Warnung"
  2. Bestätigungsabfrage:

    MsgBox "Möchten Sie fortfahren?", vbYesNo + vbQuestion, "Bestätigung"
  3. Informative Nachricht:

    MsgBox "Der Vorgang wurde erfolgreich abgeschlossen.", vbOKOnly, "Erfolg"

Diese Beispiele zeigen, wie du verschiedene Arten von Nachrichten mit einer eigenen Überschrift in der Message-Box ausgeben kannst.


Tipps für Profis

  • Nutze die vbCritical, vbInformation, vbExclamation und vbQuestion Konstanten, um die Art der Nachricht visuell hervorzuheben.
  • Experimentiere mit den verschiedenen Button-Kombinationen, um die Benutzerinteraktion zu verbessern, z.B. vbYesNoCancel.
  • Dokumentiere deinen Code gut, insbesondere bei komplexen MsgBox-Funktionen, um die Lesbarkeit und Wartbarkeit zu erhöhen.

FAQ: Häufige Fragen

1. Kann ich die Standardtitel der Message-Box vollständig entfernen?
Nein, du kannst nur einen eigenen Titel setzen, aber es wird immer ein Titel angezeigt.

2. Was passiert, wenn ich keinen Titel angebe?
Wenn du keinen Titel angibst, wird die Standardüberschrift von Excel verwendet.

3. Kann ich die Schaltflächen der Message-Box anpassen?
Du kannst die Schaltflächen durch die Verwendung von Konstanten wie vbYesNo oder vbOKOnly anpassen, aber die Schaltflächen selbst können nicht geändert werden.

4. Wie kann ich eine kritische Fehlermeldung anzeigen?
Verwende vbCritical, um eine kritische Meldung hervorzuheben, z.B.:

MsgBox "Ein kritischer Fehler ist aufgetreten.", vbCritical, "Fehler"

Mit diesen Informationen bist du gut gerüstet, um die Message-Box in Excel VBA effektiv zu nutzen!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige