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

Zeilenumbruch ab einem bestimmten Zeichen

Forumthread: Zeilenumbruch ab einem bestimmten Zeichen

Zeilenumbruch ab einem bestimmten Zeichen
28.05.2003 11:30:49
@xel
Hallo Zusammen Ich brauche drindend Eure Hilfe.
Mein Problem:

In einer Zelle befindet sich Text der mit einem Semikolon unterteilt wurde. Jedes Semikolon soll durch einen Zeilenumbruch ersetzt werden.
Ich brauche eine VBA-Lösung da es sich um ca. 40000 Zellen handelt die bearbeitet werden müssen.

Kann mir vielleicht jemand eine Lösung oder einen Tip geben ?

Schon jetzt vielen Dank für die Mühe.


Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Replace(cells(1,1).value,";",vbLF)
28.05.2003 11:51:49
RAnton

-

Re: Zeilenumbruch ab einem bestimmten Zeichen
28.05.2003 12:03:02
L.Vira

Option Explicit
Sub Umbruch()
Cells.Replace What:="_", Replacement:=Chr(10), LookAt:=xlPart, _
SearchOrder:=xlByColumns
End Sub

Korrektur...
28.05.2003 12:04:02
L.Vira

Cells.Replace What:=";",

Anzeige
Re: Korrektur...
28.05.2003 12:37:11
@xel

Vielen Dank der Code funktioniert.

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zeilenumbruch in Excel ab einem bestimmten Zeichen


Schritt-für-Schritt-Anleitung

Um in Excel einen Zeilenumbruch nach einem bestimmten Zeichen zu erstellen, kannst Du die folgende VBA-Lösung nutzen. Diese Methode ist besonders nützlich, wenn Du mit einer großen Anzahl von Zellen arbeitest, z. B. etwa 40.000.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub ZeilenumbruchNachSemikolon()
       Dim Zelle As Range
       For Each Zelle In Selection
           Zelle.Value = Replace(Zelle.Value, ";", vbLf)
       Next Zelle
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Wähle die Zellen aus, in denen der Text umgebrochen werden soll.

  6. Drücke ALT + F8, wähle ZeilenumbruchNachSemikolon aus und klicke auf Ausführen.

Damit wird in den ausgewählten Zellen jedes Semikolon durch einen Zeilenumbruch ersetzt.


Häufige Fehler und Lösungen

  • Fehler: Der Zeilenumbruch wird nicht angezeigt.

    • Lösung: Stelle sicher, dass die Zelle den Textumbruch aktiviert hat. Gehe dazu auf Start > Ausrichtung > Textumbruch.
  • Fehler: Der VBA-Code gibt einen Laufzeitfehler aus.

    • Lösung: Überprüfe, ob Du die Zellen korrekt ausgewählt hast und ob der Code im richtigen Modul eingefügt wurde.

Alternative Methoden

Falls Du keine VBA-Lösung verwenden möchtest, kannst Du auch die Funktion "Text in Spalten" nutzen, um den Text zu trennen und anschließend die Zellen manuell zu formatieren.

  1. Wähle die Zelle aus, die den Text enthält.
  2. Gehe zu Daten > Text in Spalten.
  3. Wähle Getrennt und klicke auf Weiter.
  4. Wähle das Semikolon (;) als Trennzeichen und klicke auf Fertig stellen.
  5. Danach kannst Du die Zellen anpassen, um den gewünschten Zeilenumbruch zu erzielen.

Praktische Beispiele

Angenommen, Du hast in Zelle A1 den Text "Apfel;Banane;Kirsche". Nach der Anwendung der oben genannten VBA-Methode wird der Text in der Zelle wie folgt angezeigt:

Apfel
Banane
Kirsche

Ein weiteres Beispiel: Wenn Du in Zelle B2 den Text "Haus;Auto;Boot" hast, wird dieser nach dem Ersetzen ebenfalls auf drei separate Zeilen umgebrochen.


Tipps für Profis

  • Du kannst das VBA-Skript anpassen, um es für andere Zeichen wie Kommas oder andere Trennzeichen zu verwenden. Ersetze dazu einfach das Semikolon im Code durch das gewünschte Zeichen.

  • Wenn Du mit Formeln arbeitest, um den Textumbruch zu erreichen, erwäge, die Funktion TEXTVERKETTEN zu verwenden, um Text aus mehreren Zellen zusammenzuführen und dabei Zeilenumbrüche einzufügen.


FAQ: Häufige Fragen

1. Wie kann ich einen Zeilenumbruch an einer bestimmten Stelle einfügen?
Um einen Zeilenumbruch an einer bestimmten Stelle einzufügen, kannst Du die TEXTVERKETTEN-Funktion verwenden, um den Text zusammenzuführen und CHAR(10) für den Zeilenumbruch zu nutzen.

2. Gibt es eine Möglichkeit, den Zeilenumbruch ohne VBA zu erstellen?
Ja, Du kannst die "Text in Spalten"-Funktion verwenden, um den Text zu teilen, und anschließend die Zellen so formatieren, dass sie den Textumbruch anzeigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige