Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.10.2025 19:34:56
Eine Zelle in 3 Spalten teilen
20.10.2025 19:24:08
Excel Form befüllen
20.10.2025 19:03:51
wenn istleer funktioniert nicht wegen formel
20.10.2025 13:56:55
Wenn Funktion mit Xverweis oder ähnlich
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1372to1376
1372to1376
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aus Zeilenumbruch in neue Zeile

Forumthread: Werte aus Zeilenumbruch in neue Zeile

Werte aus Zeilenumbruch in neue Zeile
30.07.2014 10:54:12
Steffen
Hallo liebe Leute,
habe hier gerade ein Problem mit einem mir vorliegenden Excel Blatt und weiß leider nicht weiter. Ich habe bereits in anderen Foren geschaut aber bislang nichts gefunden.
Hier mal ein Ist-/Soll Zustand die mein Problem besser beschreibt als ich es könnte.
Userbild
Userbild
Ich möchte genau genommen die Werte die durch einen Zeilenumbruch in einer Zelle stehen jeweils in eine eigene Zeile darunter hinzufügen.
Leider handelt es sich nicht nur um zwei betroffene Zellen, sondern um eine komplette Spalte mit 300 Zellen. Gibt es eine Möglichkeit das zu automatisieren oder ein wenig zu vereinfachen?
Wäre über jede mögliche Hilfe sehr dankbar!!
Viele Grüße

Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 11:49:02
Oberschlumpf
Hi Steffen
Ist die Nachbarspalte frei, oder welche Spalte ist frei?
Hintergrund:
- die Texte/Zelle von den Zeilenumbrüchen "befreien" und in die Nachbarzellen untereinander einfügen
- wenn alles fertig, Inhalte aus der Hilfsspalte ausschneiden + in Ursprungsspalte wieder einfügen
- das Ganze kann man nicht direkt in einem Schritt in der Ursprungsspalte durchführen, weil ja die Inhalte in den Folgezeilen (noch mit Umbruch) dann überschrieben werden
Ciao
Thorsten

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 12:19:10
Steffen
Hallo Thorsten,
leider sind die Nachbarspalten alle besetzt bzw. die danebenliegende Spalte ist auch von diesem Problem betroffen. Erst ab der Spalte BK ist wieder etwas frei.
Also verstehe ich das richtig, dass man sozusagen alles erstmal vorbereitet und dann wieder einfügt an der betroffenen Stelle. Kann man das auch so realisieren dass Zeilen aus der Spalte die keine Zeilenumbrüche enthalten nicht überschrieben werden?
Ich hänge mal zur Übersicht eine kleine Beispieldatei mit dran.
https://www.herber.de/bbs/user/91786.xlsx
Gruß
Steffen

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 12:15:15
Rudi
Hallo,
Überschrift in A1, Zellen ab A2 
Sub aaa()
Dim arr, arrErg(), Tmp, i As Integer, j As Integer, n As Integer
arr = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
ReDim arrErg(1 To 1, 1 To 1)
arrErg(1, 1) = Cells(1, 1)
For i = LBound(arr) To UBound(arr)
Tmp = Split(arr(i, 1), vbLf)
n = UBound(arrErg, 2)
ReDim Preserve arrErg(1 To 1, 1 To n + UBound(Tmp) + 1)
For j = 0 To UBound(Tmp)
arrErg(1, n + j + 1) = Tmp(j)
Next
Next
arrErg = WorksheetFunction.Transpose(arrErg)
Cells(1, 1).Resize(UBound(arrErg)) = arrErg
End Sub

Gruß
Rudi

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 12:20:40
Steffen
Hallo Rudi,
ich probier das gleich mal aus!
Gruß
Steffen

AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 12:36:17
Steffen
Hallo Rudi,
also es funktioniert einwandfrei, das ist sehr beruhigend :) Danke Vielmals!
Gibt es den die Möglichkeit statt einer Überschrift eine komplette Spalte damit durchlaufen zu lassen bzw. mehrere Zellen in einer Spalte von oben bis unten abzuklappern?

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 13:19:31
Dieter
Hallo Steffen,
du kannst das mit dem folgenden Makro machen 
Sub Trennen()
Dim anfangsZeile As Long
Dim letzteZeile As Long
Dim strTeilstück As String
Dim strRest As String
Dim pos As Long
Dim spaltenBuchstabe As String
Dim ws As Worksheet
Dim zeile As Long
anfangsZeile = 2
spaltenBuchstabe = "C"
Set ws = ThisWorkbook.Worksheets(1)
letzteZeile = ws.Cells(ws.Rows.Count, spaltenBuchstabe).End(xlUp).Row
If letzteZeile

Anfangszeile und Spaltenbuchstaben legst du im Programm fest.
Viele Grüße
Dieter

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 13:46:05
Steffen
Hallo Dieter,
danke für deine Bemühung! Leider bin ich noch etwas schwer von Begriff was Makros angeht.
Ich habe dem Code jetzt ein End Sub darunter gesetzt und es mit den Startwerten Q und 12 initialisiert (erste Zelle dieser Spalte wo mein besagtes Problem auftritt) und durchlaufen lassen.
Leider passiert nichts wenn ich das Makro ausführe. Woran könnte das liegen?
Gruß Steffen

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 14:26:55
Dieter
Hallo Steffen,
das letzte Statement (End Sub) hatte ich leider nicht mitkopiert. Es gehört direkt hinter "Next zeile".
Das Makro geht davon aus, dass das zu bearbeitende Blatt das erste Blatt deiner Mappe ist.
Du kannst eine der folgenden Aktionen machen, um das Makro zu veranlassen, mit deinem Blatt zu arbeiten.
- du verschiebst dein Blatt an Position 1
- du änderst das Statement "Set ws = ThisWorkbook.Worksheets(1)" in "Set ws = ThisWorkbook.Worksheets(7)", wenn dein Blatt an Position 7 steht.
- du änderst das Statement "Set ws = ThisWorkbook.Worksheets(1)" in "Set ws = ThisWorkbook.Worksheets("Mein Blatt)", wenn dein Blatt den Namen "Mein Blatt" hat.
Um zu testen, ob das Makro ausgeführt wird, schreibst du hinter "Set ws = ..." das Statement
MsgBox "Blatt " & ws.Name
Viele Grüße und viel Erfolg
Dieter

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 14:48:29
Steffen
Hallo Dieter,
das ist genial! Hab tausend Dank!!
Ich habe nur noch eine letzte Frage. Kann ich das auch mit 2 Spalten gleichzeitig machen?
Die daneben liegende Spalte müsste auch mit dem Makro durchlaufen werden.
Nur habe ich dann sowohl in der ersten als auch in der zweiten Spalte entsprechen neue Zeilen hinzugefügt.
Beide Spalten beinhalten in jeder Zeile die gleiche Anzahl an Wörtern.
Beste Grüße und Danke nochmals
Steffen

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 15:30:20
Dieter
Hallo Steffen,
das kannst du mit dem folgenden Makro machen 
Sub Trennen_2()
Dim anfangsZeile As Long
Dim anzNeuZeilen As Long
Dim letzteZeile As Long
Dim strTeilstück As String
Dim strRest As String
Dim pos As Long
Dim spalteDaneben As Long
Dim spaltenBuchstabe As String
Dim ws As Worksheet
Dim zeile As Long
anfangsZeile = 2
spaltenBuchstabe = "C"
Set ws = ThisWorkbook.Worksheets(1)
spalteDaneben = ws.Cells(1, spaltenBuchstabe).Column + 1
letzteZeile = ws.Cells(ws.Rows.Count, spaltenBuchstabe).End(xlUp).Row
If letzteZeile
Viele Grüße
Dieter

Anzeige
AW: Werte aus Zeilenumbruch in neue Zeile
30.07.2014 15:54:08
Steffen
Klasse Forum, Dieter du hast mir den Tag gerettet!
Hab vielen vielen vielen Dank!!
Beste Grüße
Steffen
;

Forumthreads zu verwandten Themen

Zeilen in Zellen suchen und löschen
Daniel

Hallo,
ich möchte in Excell mehrere Zelle suchen, die folgenden String in einer oder mehreren Zeilen enthalten: ----
Diese Zeilen möchte ich dann löschen. Nach diesem String sind noch weitere Zeichen vorhanden, die auch gelöscht werden sollen.
Weiß jemand wie ich am besten vorgehe?...
13.08.2008 12:52:02
Thread-ID: 1001495
9 Beiträge
Anzeige
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Nicht leere Zellen in einer Zeile finden
Andreas

Hallo Zusammen,
Bisher kam ich ohne VBA zurecht, aber ich denke nun ...
Ich habe eine Tabelle mit folgendem Aufbau
Tabelle1:
ABCDEFG
115789
2__z_z
3zz___
4z__z_
Zeile 1: enthält eine Bezeichnung (hier als Zahl dargestellt)
z=Zahl
_=leer
in einem n...
29.09.2008 14:20:42
Thread-ID: 1013111
5 Beiträge
erzwungener zeilenumbruch in Zelle
Lars

Hallo,
obwohl ich schon viel mit Excel gemacht habe, tauchen doch immer wieder Fragen auf:
Gibt es eine Möglichkeit, in einer Zelle einen Zeilenumbruch manuell einzufügen, ohne dass man bereits am Zellenende ist?
Ich denke, dass ist eine eher dumme Frage, aber ich habe derzeit keine...
02.10.2008 15:40:00
Thread-ID: 1013906
4 Beiträge
Zeilen ausblenden, außer wenn in Zelle ...?
Selma

Hallo Leute,
ich möchte mit einem CommandButton ab Zeile 4 die Zeilen wie folgt ausblenden:
- wenn in Spalte M die Zelle diesen "plt" Inhalt hat, dann soll die Zeile nicht ausgeblendet werden
- wenn in Spalte M die Zelle die Füllfarbe 15 hat., dann soll die Zeile nicht ausgeblendet...
27.10.2008 18:13:00
Thread-ID: 1019700
10 Beiträge
Zelleninhalt in Kopfzeile Seitenansicht zeigen?
Heiner

Hallo Forum,
ich bin Excel-Neueinsteiger habe ein grosses Problem...
In der Kopfzeile (Mitte) einer Seitenansicht soll automatisch der Eintrag aus Tabelle1 / Zelle B3 angezeigt werden.
Ist das möglich? Und wenn ja, wie kann das realisiert werden?
Wer kann mir mit einem Formel- o...
05.11.2008 12:10:35
Thread-ID: 1021845
2 Beiträge
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Werte aus einer Zelle in andere Zelle (neue Datei)
Franz

Tach auch,
folgendes Problem habe ich:
ich öffne eine Datei über eine Vorlage "rep.xlt". Die heisst dann bis zum Speichern "rep1". In einer Zelle wird eine Zahl eingetragen, bspw.: 1234. Dann kann ich die Datei per makro speichern, dann heisst sie: "rep1234.xls. Das funktioniert auch g...
22.01.2009 15:10:00
Thread-ID: 1042648
3 Beiträge
Zelleninhalt in Fusszeile formatieren
HaKa

Hallo Forum
Ich habe heute Morgen von Tino folgenden VBA-Code zum einfügen eines Zelleninhaltes in die Fusszeile erhalten. Nun möchte ich den Eintrag in der Fusszeile gleichzeitig "Arial, fett, Schriftgrösse 14", formatiert haben. Wie lautet dann der VBA-Code?
Gruss Heinz
Sub Test...
31.01.2009 11:31:23
Thread-ID: 1045619
5 Beiträge
Zelle suchen + umliegenden Bereich in neue Tabelle
Schulze

Guten Tag zusammen,
ich bräuchte ein Makro, welches mir nach einem bestimmten Suchwort jede Zelle ausliest und diesen Inhalt mit einem darüber und darunter liegenden Bereich in die Tabelle2 untereinander kopiert.
Das Suchwort kommt natürlich in der Tabelle 1 Bereich A1:A65536 mehrmals v...
17.02.2009 15:51:00
Thread-ID: 1051532
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Werte aus Zeilenumbruch in neue Zeile umwandeln

Schritt-für-Schritt-Anleitung

Um Werte aus einem Zeilenumbruch in Excel in neue Zeilen umzuwandeln, kannst du VBA (Visual Basic for Applications) nutzen. Hier ist eine Schritt-für-Schritt-Anleitung:

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

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Füge den folgenden VBA-Code ein:

    Sub WerteInNeueZeilen()
    Dim arr, arrErg(), Tmp, i As Integer, j As Integer, n As Integer
    arr = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)) ' Bereich anpassen
    ReDim arrErg(1 To 1, 1 To 1)
    arrErg(1, 1) = Cells(1, 1)

    For i = LBound(arr) To UBound(arr)
        Tmp = Split(arr(i, 1), vbLf)
        n = UBound(arrErg, 2)
        ReDim Preserve arrErg(1 To 1, 1 To n + UBound(Tmp) + 1)
        For j = 0 To UBound(Tmp)
            arrErg(1, n + j + 1) = Tmp(j)
        Next
    Next

    arrErg = WorksheetFunction.Transpose(arrErg)
    Cells(1, 1).Resize(UBound(arrErg)) = arrErg ' Zielbereich anpassen
End Sub

  4. Speichere das Modul und schließe den VBA-Editor.

  5. Führe das Makro aus, um die Werte aus den Zeilenumbrüchen in neue Zeilen umzuwandeln.

Häufige Fehler und Lösungen

  • Fehler: Das Makro gibt keine Ergebnisse zurück.

    • Lösung: Stelle sicher, dass der Zielbereich korrekt angegeben ist und keine leeren Zellen vorhanden sind.

  • Fehler: Es wird eine Fehlermeldung beim Ausführen des Makros angezeigt.

    • Lösung: Überprüfe, ob das Arbeitsblatt, das du bearbeitest, das erste Blatt in der Arbeitsmappe ist oder ändere die Referenz im Code entsprechend.

Alternative Methoden

Wenn du den VBA-Weg nicht gehen möchtest, kannst du auch mit Formeln arbeiten:

  1. Formel für Zeilenumbruch in Zelle:

    • Verwende die Formel =TEXTJOIN(CHAR(10), TRUE, A1:A10) und aktiviere "Zeilenumbruch" in der Zelle.

  2. Excel Funktionen:

    • Nutze die Funktion WENN zusammen mit SPLIT und INDEX, um Werte ohne Zeilenumbrüche zu extrahieren und in neue Zellen einzufügen.

Praktische Beispiele

  1. Beispiel mit VBA:

    • Stelle dir vor, du hast in Zelle A2 den Text "Wert1" und einen Zeilenumbruch, gefolgt von "Wert2". Das Makro wird "Wert1" in A2 und "Wert2" in A3 platzieren.

  2. Formel Beispiel:

    • Wenn in Zelle A1 "Erstes Wort; Zweites Wort" steht und du nach Semikolons in neue Zeilen aufteilen möchtest, könntest du =SPLIT(A1, ";") verwenden (in neueren Excel-Versionen).

Tipps für Profis

  • Nutze Tastenkombinationen wie ALT + ENTER, um manuell neue Zeilen in einer Zelle zu erstellen.
  • Makros können angepasst werden, um mehrere Spalten gleichzeitig zu bearbeiten, indem du die Logik im VBA-Code erweiterst.
  • Speichere regelmäßig deine Arbeit, insbesondere wenn du mit VBA arbeitest, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie füge ich in einer Zelle einen Zeilenumbruch ein?
Du kannst dies tun, indem du ALT + ENTER drückst, während du in der Zelle schreibst.

2. Was passiert mit Zellen, die keine Zeilenumbrüche enthalten?
Diese Zellen bleiben unverändert, es werden nur die Zellen verarbeitet, die tatsächlich Zeilenumbrüche enthalten.

3. Kann ich das Makro auch auf mehrere Spalten anwenden?
Ja, du kannst das Makro so anpassen, dass es mehrere Spalten durchläuft, indem du die Logik im Code entsprechend änderst.

4. Wie kann ich Werte ohne Zeilenumbrüche in Excel anzeigen?
Nutze die Funktion TEXTVERKETTEN oder TEXTJOIN, um Werte zusammenzuführen und unerwünschte Zeilenumbrüche zu vermeiden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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