Sub Text_MessageBox()
Dim Forumsbeitrag, Begrüssung, Text, Schlussformel, Name, Titel
Titel = "Text mittig möglich?"
Begrüssung = "Hallo,"
Text = "ist es möglich, das man Text wie diesen" & Chr(13) & _
"hier mittig in der msgBox ausgeben kann?"
Schlussformel = "Danke schonmal für eure Hilfe."
Name = "Franc"
Forumsbeitrag = Begrüssung & Chr(13) & Chr(13) & Text & Chr(13) & _
Chr(13) & Schlussformel & Chr(13) & Chr(13) & Name
MsgBox Forumsbeitrag, vbYesNo, Titel
End Sub
Öffne Excel und die VBA-Umgebung: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu: Klicke im Menü auf Einfügen > Modul.
Kopiere den folgenden Code in das Modul:
Sub Text_MessageBox()
Dim Forumsbeitrag, Begrüssung, Text, Schlussformel, Name, Titel
Titel = "Text mittig möglich?"
Begrüssung = "Hallo,"
Text = "ist es möglich, das man Text wie diesen" & Chr(13) & _
"hier mittig in der msgBox ausgeben kann?"
Schlussformel = "Danke schonmal für eure Hilfe."
Name = "Franc"
Forumsbeitrag = Begrüssung & Chr(13) & Chr(13) & Text & Chr(13) & _
Chr(13) & Schlussformel & Chr(13) & Chr(13) & Name
MsgBox Forumsbeitrag, vbYesNo, Titel
End SubFühre das Makro aus: Drücke F5 oder wähle Run > Run Sub/UserForm.
Überprüfe das Ergebnis: Eine MsgBox wird angezeigt, die den Text anzeigt.
Fehler 1: MsgBox zeigt keinen Text an.
Fehler 2: Text erscheint nicht mittig.
Wenn du den Text wirklich mittig in einer MsgBox anzeigen möchtest, kannst du ein benutzerdefiniertes Formular erstellen. Hier sind die Schritte:
Einfügen > UserForm.TextAlign-Eigenschaft auf fmTextAlignCenter.Zeige das UserForm an: Verwende den folgenden Code:
Sub Show_CustomMsgBox()
UserForm1.Show
End SubHier ist ein einfaches Beispiel, wie du die MsgBox mit dem Titel "Text mittig möglich?" und einem benutzerdefinierten Text verwenden kannst:
Sub CustomMessageBoxExample()
Dim Titel As String
Titel = "Text mittig möglich?"
MsgBox "Dies ist ein Beispieltext.", vbInformation, Titel
End Sub1. Ist es wirklich möglich, Text in einer MsgBox mittig anzuzeigen?
Nein, die Standard-MsgBox in VBA erlaubt keine mittige Textausrichtung. Du kannst jedoch ein UserForm verwenden.
2. Wie kann ich den Titel der MsgBox anpassen?
Du kannst den Titel der MsgBox im dritten Parameter der MsgBox-Funktion angeben, wie im Beispiel gezeigt.
3. Gibt es spezielle Anforderungen für Excel-Versionen?
Die beschriebenen Methoden sind in Excel VBA ab Version 2007 verfügbar.