So brechen sie text mit vba um (mit beispiel)

Sie können die WrapText- Eigenschaft in VBA verwenden, um Text in bestimmten Zellen in einem Excel-Arbeitsblatt umzubrechen.

Hier sind drei gängige Möglichkeiten, diese Eigenschaft in der Praxis zu nutzen:

Methode 1: Den Text einer bestimmten Zelle umbrechen

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Methode 2: Zellentext in einem bestimmten Bereich umbrechen

 SubUseWrapText ()
Range(" B2:B11 ").WrapText = True
End Sub

Methode 3: Umbrechen Sie den Text aller Zellen im Arbeitsblatt

 Sub UseWrapText()
Cells.WrapText = True
End Sub

Die folgenden Beispiele zeigen, wie Sie die einzelnen Methoden in der Praxis mit dem folgenden Datensatz in Excel anwenden:

Lass uns gehen!

Beispiel 1: Text einer bestimmten Zelle mit VBA umbrechen

Wir können das folgende Makro erstellen, um den Text nur in Zelle B2 einzuschließen:

 Sub UseWrapText()
Range(" B2 ").WrapText = True
End Sub

Wenn wir dieses Makro ausführen, können wir auf Zelle B2 klicken und sehen, dass „Text umbrechen“ in der Gruppe „ Ausrichtung “ auf der Registerkarte „Startseite“ im oberen Menüband aktiviert ist:

Allerdings müssen wir die Länge von Spalte B kürzen und die Höhe von Zeile 2 erhöhen, um den umbrochenen Text tatsächlich zu sehen:

Wir können jetzt leicht erkennen, dass der Text in Zelle B2 umgebrochen wird, während der Text in allen anderen Zellen in Spalte B nicht umgebrochen wird.

Beispiel 2: Zellentext mithilfe von VBA in einem bestimmten Bereich umbrechen

Wir können das folgende Makro erstellen, um den Text in jeder Zelle im Bereich B2:B11 umzubrechen:

 Sub UseWrapText()
Range(" B2:B11 ").WrapText = True
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Wir können sehen, dass jede Zelle im Bereich B2:B11 jetzt umbrochenen Text enthält.

Beispiel 3: Den Text aller Zellen in einem Arbeitsblatt mithilfe von VBA umbrechen

Wir können das folgende Makro erstellen, um den Text in jede Zelle eines Arbeitsblatts einzuschließen:

 Sub UseWrapText()
Cells.WrapText = True
End Sub

Wenn wir dieses Makro ausführen, erhalten wir die folgende Ausgabe:

Wir können sehen, dass jede Zelle im Arbeitsblatt jetzt umbrochenen Text enthält.

Hinweis : Die vollständige Dokumentation für die VBA- WrapText- Eigenschaft finden Sie hier .

Zusätzliche Ressourcen

Die folgenden Tutorials erklären, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So ändern Sie die Schriftfarbe
VBA: So ersetzen Sie Zeichen in einer Zeichenfolge
VBA: So fügen Sie eine Zeile mit Formatierung ein