ist es Möglich in einer MsgBox, deren
Text
durch chr(13) einen Zeilenumbruch
bekommen hat, den Text untereinander
zu Zentrieren?
Öffne den Visual Basic for Applications (VBA) Editor:
ALT + F11, um den Editor zu öffnen.Füge ein neues Modul hinzu:
Einfügen und wähle Modul.Gib den folgenden Code ein:
Sub MsgBoxZentrieren()
MsgBox "Das ist ein Test" & Chr(10) & Space(6) & "für Tino", 64, "Information"
End Sub
Chr(10) (Zeilenumbruch) und Space(6) (einige Leerzeichen) zentriert.Führe das Skript aus:
Ausführen oder drücke F5, um die MsgBox anzuzeigen.Fehler: MsgBox zeigt keinen Zeilenumbruch an:
Chr(10) verwendest, um einen Zeilenumbruch zu erzeugen. Chr(13) allein könnte nicht den gewünschten Effekt haben.Fehler: Text wird nicht zentriert:
Space(6). Wenn der Text länger ist, kannst du die Zahl erhöhen, um eine bessere Zentrierung zu erreichen.Eine andere Möglichkeit, um den Text in einer MsgBox zu zentrieren, besteht darin, eine benutzerdefinierte UserForm zu verwenden. Hierbei kannst du mehr Kontrolle über das Layout und die Formatierung des Textes erhalten.
Erstelle eine UserForm:
Einfügen > UserForm.Füge ein Textfeld hinzu:
TextAlign-Eigenschaft auf fmTextAlignCenter.Füge einen Button hinzu:
Hier sind einige Variationen des Codes, die du verwenden kannst:
Einfacher Text mit Zentrierung:
MsgBox "Willkommen!" & Chr(10) & Space(10) & "Zur Excel-Hilfe", vbInformation, "Beispiel"
Kombination mit Variablen:
Dim Benutzer As String
Benutzer = "Tino"
MsgBox "Hallo " & Benutzer & Chr(10) & Space(5) & "Schön, dass du hier bist!", vbInformation, "Willkommen"
1. Kann ich die MsgBox anpassen?
Ja, du kannst die MsgBox mithilfe von UserForms anpassen, um mehr Kontrolle über das Layout und die Gestaltung zu erhalten.
2. Funktioniert das auch in Excel 2019?
Ja, der Code funktioniert in allen modernen Excel-Versionen, einschließlich Excel 2019 und Microsoft 365.