Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mehrzeilige Zelle aufteilen

mehrzeilige Zelle aufteilen
07.07.2006 14:37:59
Rob
HI,
wer kann mir einen Trick verraten, wie ich eine mehrzeilige Zelle "per Knopfdruck" auf mehrere Zeilen aufteilen kann. Z.B. steht in EINER Zelle mit Zeilenumbruch
A\B
C\D\E
F
G\H
Mit "Text in Spalten" wird ja nur die erste Zeile aufgeteilt, die restlichen "verschluckt".
Wie kann ich aber ALLE Zeilen untereinander und aufgeteilt erhalten?
Danke fürs mitdenken.
LG Rob
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: mehrzeilige Zelle aufteilen
07.07.2006 15:41:34
Peter
Hallo Rob,
angenommen deine Zelle ist A1, dann so:
Public

Sub Aufteilen()
Dim iZeile   As Integer
Dim iPosit  As Integer
iZeile = 1
For iPosit = 1 To Len(Range("A1").Value)
If Mid(Range("A1").Value, iPosit, 1) = Chr(10) Then
iZeile = iZeile + 1
Else
Range("B" & iZeile).Value = Range("B" & iZeile).Value & _
Mid(Range("A1").Value, iPosit, 1)
End If
Next iPosit
End Sub

Alt + F11 = VBA Umgebung
Klick auf Einfügen, Modul
obiges Makro einfügen
mit Schließen-Kreuz beenden
mit Alt + F8 (oder Extras, Makro Makros) starten
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: mehrzeilige Zelle aufteilen
07.07.2006 15:58:42
Rob
Hi Peter,
vielen Dank - genial, funzt prima.
2. Kleine "Zusatzaufgaben" hätt ich noch.
1.) Wie kann ich nach dem Abarbeiten der 1. Zelle automatisch in die nächste darunterliegende springen, die ebenfalls mehrzeilige Infos enthält, bis zum Ende der letzten befüllten Zeile
2.) In Spalte B stehen auch Infos, die im Konnex zur Spalte A stehen. Wie kann ich machen, dass "er" ganze Zeilen für jeden Eintrag erstellt, sonst verlier ich den Zusammenhang zw. Spalte A und B, da A ja aufgedröselt wird.
Danke sehr im Voraus für deine Hilfe
LG aus Wien
Rob
Anzeige
AW: mehrzeilige Zelle aufteilen
07.07.2006 23:30:52
Luschi
Hallo Rob,
ich hab Dir mal 1 Beispieldatei gemacht für Dein Problem.
https://www.herber.de/bbs/user/34932.xls
und ein paar Kommentare in den Vba-Code geschrieben.
Gruß von Luschi
aus klein-Paris
AW: mehrzeilige Zelle aufteilen
08.07.2006 14:17:31
Peter
Hallo Rob,
das geht so:
https://www.herber.de/bbs/user/34940.xls
Mit Alt + F8 bzw Extras, Makro, Makro - Aufteilen_I starten
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Mehrzeilige Zelle in Excel aufteilen


Schritt-für-Schritt-Anleitung

Um eine mehrzeilige Zelle in Excel auf einfache Weise aufzuteilen, kannst du VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne die VBA-Umgebung:

    • Drücke Alt + F11.
  2. Füge ein neues Modul ein:

    • Klicke auf Einfügen -> Modul.
  3. Füge den folgenden Code ein:

    Sub Aufteilen()
       Dim iZeile As Integer
       Dim iPosit As Integer
       iZeile = 1
       For iPosit = 1 To Len(Range("A1").Value)
           If Mid(Range("A1").Value, iPosit, 1) = Chr(10) Then
               iZeile = iZeile + 1
           Else
               Range("B" & iZeile).Value = Range("B" & iZeile).Value & _
               Mid(Range("A1").Value, iPosit, 1)
           End If
       Next iPosit
    End Sub
  4. Schließe die VBA-Umgebung:

    • Schließe das Fenster mit dem Schließen-Kreuz.
  5. Starte das Makro:

    • Drücke Alt + F8, wähle Aufteilen und klicke auf Ausführen.

Damit wird der Inhalt der Zelle A1, die mehrere Zeilen enthält, in die Zellen B1 und darunter aufgeteilt.


Häufige Fehler und Lösungen

  • Fehler: Die Zeilen werden nicht korrekt aufgeteilt.

    • Lösung: Stelle sicher, dass in der Zelle, die du aufteilen möchtest, Zeilenumbrüche (Chr(10)) vorhanden sind.
  • Fehler: Der VBA-Code funktioniert nicht.

    • Lösung: Überprüfe, ob du korrekt in ein Modul eingefügt hast und keine Syntaxfehler im Code sind.

Alternative Methoden

Eine weitere Möglichkeit, eine mehrzeilige Zelle in Excel aufzuteilen, ist die Verwendung der Funktion "Text in Spalten":

  1. Markiere die Zelle mit dem mehrzeiligen Text.
  2. Gehe zu Daten -> Text in Spalten.
  3. Wähle Getrennt und klicke Weiter.
  4. Setze ein Häkchen bei Andere und gib Alt + Enter ein (dies ist der Zeilenumbruch).
  5. Klicke auf Fertigstellen.

Diese Methode eignet sich, wenn du nur eine Zelle aufteilen möchtest, die mehrzeiligen Text enthält.


Praktische Beispiele

Wenn du beispielsweise den Text in der Zelle A1 hast:

A
B
C
D

Und du möchtest diesen in mehrere Zeilen aufteilen, wende die obigen Schritte an. Nach dem Ausführen des VBA-Codes wird in Spalte B folgendes erscheinen:

A
B
C
D

Das Beispiel zeigt, wie du mit der Funktion "Excel mehrere Zeilen in einer Zelle aufteilen" arbeiten kannst.


Tipps für Profis

  • Wenn du mehrere Zellen auf einmal aufteilen möchtest, erweitere das Makro so, dass es über einen Bereich von Zellen iteriert.
  • Speichere deine Excel-Datei im .xlsm-Format, um die Makros zu behalten.
  • Nutze die Funktion Trim, um überflüssige Leerzeichen zu entfernen, nachdem die Zellen aufgeteilt wurden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zeilen in einer Zelle trennen?
Du kannst das Makro anpassen, um über einen spezifischen Zellbereich zu iterieren und jede mehrzeilige Zelle automatisch zu bearbeiten.

2. Funktioniert dies auch in Excel Online?
Leider unterstützt Excel Online keine VBA-Makros. Du musst die Desktop-Version von Excel verwenden, um die oben genannten Methoden anzuwenden.

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