Excel VBA: Neue Zeile in MsgBox erstellen (6 Beispiele)

Hugh West

20-06-2023 Makros & Excel VBA
  • Teile Das
Hugh West

Wir verwenden oft MsgBox in VBA um die Benachrichtigung nach der Ausführung der Codes anzuzeigen. Manchmal kann eine einzelne Zeile die Ausgabe nicht richtig anzeigen. Dann müssen wir neue Zeilen hinzufügen In diesem Artikel erfahren Sie also 6 nützliche Makros zum Hinzufügen einer neuen Zeile in MsgBox mit Excel VBA.

Download Arbeitsbuch Praxis

Sie können die kostenlose Excel-Vorlage von hier herunterladen und selbst üben.

Neue Zeile in MsgBox.xlsm erstellen

6 Beispiele zum Erstellen einer neuen Zeile in MsgBox mit Excel VBA

1. vbNewLine verwenden, um mit Excel VBA eine neue Zeile in MsgBox hinzuzufügen

Hier werden wir Folgendes verwenden vbNewLine in VBA-Makro um eine Zeile in MsgBox. Ich werde es zeigen" Hallo! " in der ersten Zeile und " Willkommen bei ExcelWIKI" in der zweiten Zeile.

Schritte:

  • Presse Alt + F11 zum Öffnen des VBA-Fenster .
  • Dann anklicken. wie folgt, um ein Modul einzufügen: Einsatz ➤ Modul .

  • Geben Sie später die folgenden Codes ein. 
 Sub NewLine_vbNewLine() MsgBox "Hallo!" & vbNewLine & "Willkommen bei ExcelWIKI" End Sub

  • Dann zurückgehen zu Ihrem Blatt und anklicken. wie folgt, um die Makros Dialogfeld: Entwickler ➤ Makros .

  • Wählen Sie die Makro-Name wie sie in der Codes .
  • Zum Schluss drücken Sie einfach ausführen. .

Schauen Sie selbst, vbNewLine zeigt die Ausgabe in zwei Linien .

Lesen Sie mehr: VBA zum Erzeugen mehrerer Zeilen im E-Mail-Text in Excel (2 Methoden)

2. vbCrLf zum Erstellen einer neuen Zeile in MsgBox mit VBA in Excel verwenden

Jetzt werden wir eine weitere Konstante von VBA - vbCrLf um eine neue Zeile in MsgBox Außerdem wird eine neue Zeile zwischen den beiden aufeinanderfolgenden Zeilen eingefügt.

Schritte:

  • Befolgen Sie zunächst die die ersten beiden Schritte der ersten Methode zum Einfügen eines Moduls in die VBA
  • Dann schreiben. die folgenden Codes Darin... 
 Sub NewLine_vbCrLf() MsgBox "Hallo!" & vbCrLf & vbCrLf & "Willkommen bei ExcelWIKI" End Sub

  • Folgen Sie dann der Vierter Schritt der ersten Methode zum Öffnen des Dialogfeld "Makro .
  • Wählen Sie die Makro-Name und drücken Sie ausführen. .

Die Konstante vbCrLf hat hinzugefügt eine neue Zeile mit eine Lückenlinie auch.

Lesen Sie mehr: Hinzufügen einer Zeile in einer Excel-Zelle (5 einfache Methoden)

3. vbLf einfügen, um neue Zeile in MsgBox mit Excel VBA hinzuzufügen

Nehmen wir eine andere Konstante. vbLf zum Hinzufügen einer neue Zeile in MsgBox in Excel VBA.

Schritte:

  • Folgen Sie der die ersten beiden Schritte der ersten Methode zum Einfügen eines Moduls in die VBA
  • Später, schreiben. die folgenden Codes Darin... 
 Sub NewLine_vbLf() MsgBox "Hallo!" & vbLf & "Willkommen bei ExcelWIKI" End Sub

  • Dann folgen Sie der Vierter Schritt der ersten Methode zum Öffnen des Dialogfeld "Makro .
  • Wählen Sie später die Makro-Name wie in den Codes erwähnt und drücken Sie ausführen. .

Und schon bald werden Sie das gewünschte Ergebnis erhalten.

Lesen Sie mehr: Hinzufügen einer neuen Zeile mit der CONCATENATE-Formel in Excel (5 Möglichkeiten)

4) Chr anwenden, um eine neue Zeile in MsgBox mit VBA in Excel zu erstellen

Hier werden wir zwei VBA-Konstanten verwenden. Chr(13) & Chr(10) um Zeilen hinzuzufügen.

Schritte:

  • Beginnen Sie mit der Befolgung der die ersten beiden Schritte der ersten Methode zum Einfügen eines Moduls in die VBA
  • Dann schreiben. die folgenden Codes Darin... 
 Sub NewLine_Chr() MsgBox "Hallo!" & Chr(13) & Chr(10) & "Willkommen bei ExcelWIKI" End Sub

  • Danach folgen Sie der Vierter Schritt der ersten Methode zum Öffnen des Dialogfeld "Makro .
  • Wählen Sie dann die zugewiesene Makro-Name und drücken Sie ausführen. .

Sie sehen, dass wir die gleiche Ausgabe erhalten haben.

5. neue Zeile innerhalb des Makros in Excel VBA hinzufügen

Bei den vorherigen Methoden haben wir die Zeile im Code nicht unterbrochen, hier werden wir die Zeilen innerhalb des Codes unterbrechen und hinzufügen.

Schritte:

  • Befolgen Sie zunächst die die ersten beiden Schritte der ersten Methode zum Einfügen eines Moduls in die VBA
  • Nächste, schreiben. die folgenden Codes Darin... 
 Sub NewLine_within_Macro() MsgBox "Hallo!" & vbCrLf & vbCrLf & _ "Willkommen bei ExcelWIKI" End Sub

  • Folgen Sie später der Vierter Schritt der ersten Methode zum Öffnen des Dialogfeld "Makro .
  • Wählen Sie dann einfach die Makro-Name und drücken Sie ausführen. .

Sehen Sie nun, dass Makro hat eine neue Zeile hinzugefügt unter eine Lückenlinie zwischen den Zeilen.

Lesen Sie mehr: Zeilenumbruch in Excel (4 Möglichkeiten)

6 VBA einbetten, um neue Zeilen in MsgBox mit Hilfe einer Schaltfläche hinzuzufügen

In unserer allerletzten Methode werden wir die Aufgabe auf eine etwas andere Art und Weise erledigen: Wir setzen eine Taste zum Hinzufügen von Zeilen in MsgBox .

6.1 Taste für einzelne Zeile

Zunächst erstellen wir eine Schaltfläche zum Hinzufügen einer einzelnen Zeile. Dazu habe ich einen Datensatz erstellt, der drei Zellen für die Eingabe darstellt Nachname , Adresse und Rufnummer Wenn wir auf die Schaltfläche Taste werden die Zellen überprüft und wenn eine leere Zelle erhalten wird dann wird die Nachricht anzeigen für diese Zelle.

  • Klicken Sie auf wie folgt: Entwickler ➤ Einfügen und dann Wählen Sie die rechteckige Box von der Abschnitt Formularsteuerungen .

  • Bald darauf erhalten Sie eine Pluszeichen in Ihrem Cursor, Linksklick auf Ihre Maus und ziehen über die Blatt zum Einstellen der Tastengröße .

  • Dann Rechtsklick auf Ihr Maus über die Taste und wählen Sie Text bearbeiten von der Kontextmenü zum Einstellen der Schaltflächenname .

  • Typ die Name und klicken Sie irgendwo auf das Blatt.

  • Nochmals Rechtsklick auf Ihr Maus über die Taste und wählen Sie Makro zuweisen von der Kontextmenü zum Einstellen einer Makro .

  • In diesem Moment, geben Sie eine Makro-Name und drücken Sie Neu .

  • Dann Typ die folgenden Codes - 
 Private Sub SingleLine_Button() Dim WS As Worksheet Set WS = Sheets("Single Line") If WS.Range("C4").Value = "" Then MsgBox "Please Insert Last Name!" End If WS.Range("C5").Value = "" Then MsgBox "Please Insert Address!" End If WS.Range("C6").Value = "" Then MsgBox "Please Insert Phone Number!" End If End Sub

Code-Aufschlüsselung

  • Zunächst habe ich eine Unterverfahren SingleLine_Button .
  • Dann deklarieren Sie eine Variable WS als Arbeitsblatt .
  • Dann wurden drei IF-Anweisungen um die Zellen zu überprüfen, wenn die Zelle mit einem Wert gefüllt ist dann wird es es ignorieren und wenn eine leere Zelle erhalten wird zeigt dann die entsprechende Nachricht über MsgBox .
  • Später, nur zurückgehen zu Ihrem Blatt und anklicken. die Taste .

Da die Nachname ist leer, weshalb die Benachrichtigung angezeigt wird.

  • Presse OK und dann wird das zweite Feld überprüft.

Die zweite Feld ist leer auch damit es eine neue Zeile hinzugefügt, um sie zu benachrichtigen .

Hier habe ich die erstes Feld und auf die Schaltfläche geklickt und gesehen, dass das Feld übersprungen wurde und zum Feld zweites Feld um die Nachricht anzuzeigen.

6.2 Schaltfläche für mehrere Zeilen

Durch die Zuweisung dieser Schaltfläche können wir mehrere Zeilen auf einmal in das Nachrichtenfeld einfügen.

  • Erstens, Befolgen Sie die ersten 6 Schritte aus dem vorherigen Abschnitt zum Hinzufügen einer Taste und weisen eine Makro .

  • Dann Typ die folgenden Codes in der Makro- 
 Sub Multiple_Line_Button() Dim WS As Worksheet Set WS = Sheets("Multiple Line") Dim Last_Name, Address, Phone, Error_msg As String Last_Name = Len(WS.Range("C4")) Address = Len(WS.Range("C5")) Phone = Len(WS.Range("C6")) If Last_Name = 0 Then Error_msg = "Please Insert Last Name!" End If Address = 0 Then Error_msg = Error_msg & vbNewLine & "Please Insert Address!" End If Phone = 0Then Error_msg = Error_msg & vbNewLine & "Bitte Telefonnummer eingeben!" End If If Error_msg "" Then MsgBox Error_msg, vbOKOnly, Title:="Wichtige Vorsicht!" Exit Sub End If End Sub

Code-Aufschlüsselung

  • Hier habe ich eine Unterverfahren Mehrzeilige_Schaltfläche .
  • Dann deklarieren Sie einige Variablen WS Als Arbeitsblatt und Name_Nachname , Adresse , Telefon , Fehler_msg Als
  • Später verwendet Len und Bereich um die Felder zu setzen.
  • Schließlich, verwendet Wenn-Anweisungen zu prüfen, ob die Felder leer sind oder nicht Wenn es gefüllt ist, wird es übersprungen, und wenn nicht, werden die Meldungen durch MsgBox .
  • Schließlich, nur return zum Blatt und anklicken. die Taste .

Und siehe da, es wird angezeigt drei Zeilen für die drei Bereiche wie sie alle sind leer .

Ich füllte die erstes Feld und siehe da, es werden nur Meldungen für die nächste 2 Felder .

Lesen Sie mehr: Wie man mehrere Zeilen in eine Excel-Zelle einfügt (2 einfache Wege)

Schlussfolgerung

Ich hoffe, dass die oben beschriebenen Verfahren ausreichen, um mit Excel VBA eine neue Zeile in der MsgBox zu erstellen. Sie können mir gerne im Kommentarbereich Fragen stellen und mir Feedback geben.

Vorherigen Post Entfernen von Leerraum in Excel (6 einfache Methoden)
Nächster Beitrag Wie man die Anzahl der Zeichen in einer Zelle in Excel zählt (die 6 einfachsten Methoden)

Hugh West ist ein äußerst erfahrener Excel-Trainer und -Analyst mit über 10 Jahren Erfahrung in der Branche. Er verfügt über einen Bachelor-Abschluss in Rechnungswesen und Finanzen sowie einen Master-Abschluss in Betriebswirtschaft. Hugh hat eine Leidenschaft für das Unterrichten und hat einen einzigartigen Lehransatz entwickelt, der leicht zu befolgen und zu verstehen ist. Seine Expertenkenntnisse in Excel haben Tausenden von Studenten und Berufstätigen auf der ganzen Welt geholfen, ihre Fähigkeiten zu verbessern und in ihrer Karriere herausragende Leistungen zu erbringen. Über seinen Blog teilt Hugh sein Wissen mit der Welt und bietet kostenlose Excel-Tutorials und Online-Schulungen an, um Einzelpersonen und Unternehmen dabei zu helfen, ihr volles Potenzial auszuschöpfen.