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

Forumthread: VBA: Zeilenumbruch in String einfügen

VBA: Zeilenumbruch in String einfügen
André
Moin zusammen,
ich stehe mal wieder total auf dem Schlauch, und wie immer auf Kriegsfuß mit der Excel-Hilfe.
Wie kann ich in VBA einen String mit einem Zeilenumbruch definieren?
Gruß, André
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: VBA: Zeilenumbruch in String einfügen
24.03.2010 17:31:56
Peter
Hallo André,
z. B. so:
Dim sText As Stirng
sText = "Heute" & Chr(10) & "ist" & Chr(10) & "Mittwoch"
Gruß Peter
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeilenumbruch in Strings mit VBA einfügen


Schritt-für-Schritt-Anleitung

Um in VBA einen Zeilenumbruch in einen String einzufügen, kannst du die Chr(10)-Funktion verwenden, die den Zeilenumbruch (LF) zurückgibt. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne den Visual Basic for Applications (VBA) Editor in Excel (ALT + F11).

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

  3. Schreibe den folgenden Code:

    Sub BeispielZeilenumbruch()
       Dim sText As String
       sText = "Heute" & Chr(10) & "ist" & Chr(10) & "Mittwoch"
       MsgBox sText
    End Sub
  4. Führe das Makro aus, um den Text mit den Zeilenumbrüchen anzuzeigen.

Mit dieser Methode kannst du einfach einen VBA-Zeilenumbruch in den String einfügen und den Text in einer Messagebox anzeigen.


Häufige Fehler und Lösungen

  1. Fehler: "Typenübereinstimmung"

    • Lösung: Stelle sicher, dass der String korrekt deklariert ist: Dim sText As String.
  2. Fehler: Zeilenumbruch funktioniert nicht

    • Lösung: Verwende Chr(10) für einen Zeilenumbruch und stelle sicher, dass du die Verkettung mit & korrekt durchführst.

Alternative Methoden

Neben der Verwendung von Chr(10) gibt es auch andere Möglichkeiten, einen Zeilenumbruch in VBA zu implementieren:

  • Verwendung von vbCrLf:

    sText = "Heute" & vbCrLf & "ist" & vbCrLf & "Mittwoch"

    vbCrLf ist eine Kombination aus Carriage Return (CR) und Line Feed (LF), die ebenfalls einen Zeilenumbruch erzeugt.

  • Verwendung von vbNewLine:

    sText = "Heute" & vbNewLine & "ist" & vbNewLine & "Mittwoch"

    vbNewLine ist eine weitere Alternative, die je nach Umgebung den passenden Zeilenumbruch zurückgibt.


Praktische Beispiele

Hier sind einige praktische Anwendungen des Excel VBA Zeilenumbruchs:

  1. Text in Zellen einfügen:

    Sub BeispielZelle()
       Range("A1").Value = "Zeile 1" & Chr(10) & "Zeile 2"
       Range("A1").WrapText = True ' Aktiviert den Textumbruch in der Zelle
    End Sub
  2. E-Mail mit Zeilenumbruch:

    Sub SendEmail()
       Dim objOutlook As Object
       Set objOutlook = CreateObject("Outlook.Application")
       Dim objMail As Object
       Set objMail = objOutlook.CreateItem(0)
    
       objMail.Subject = "Betreff"
       objMail.Body = "Hallo," & vbCrLf & "das ist eine Nachricht mit Zeilenumbruch." & vbCrLf & "Viele Grüße"
       objMail.Display
    End Sub

Tipps für Profis

  • Nutze vbTab für Tabulatoren, um die Lesbarkeit von mehrzeiligem Text zu verbessern.
  • Kombiniere Chr(10) mit Chr(13) für plattformübergreifende Kompatibilität.
  • Experimentiere mit WrapText in Excel, um sicherzustellen, dass der Text in den Zellen korrekt angezeigt wird.

FAQ: Häufige Fragen

1. Wie füge ich einen Zeilenumbruch in ein HTML-Dokument ein? Um einen Zeilenumbruch in HTML zu erzwingen, kannst du <br> verwenden.

2. Kann ich einen VBA-Zeilenumbruch in einer MsgBox verwenden? Ja, du kannst vbCrLf oder Chr(10) verwenden, um den Text in einer MsgBox mehrzeilig anzuzeigen.

3. Was ist der Unterschied zwischen Chr(10) und vbCrLf? Chr(10) gibt nur ein LF (Line Feed) zurück, während vbCrLf sowohl CR (Carriage Return) als auch LF zurückgibt. In vielen Fällen sind sie jedoch austauschbar.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige