fox78
Aktives Mitglied
Thread Starter
- Dabei seit
- 02.02.2004
- Beiträge
- 2.784
- Reaktionspunkte
- 366
Hallo,
ich sitze gerade auf Arbeit vor folgendem Probem:
In einer automatisch generierten Tabelle gibt es eine Spalte mit Zellen, die teilweise und in unterschiedliche Anzahl Zeilenumbrüche enthalten. Diese Daten werden per Verkettungsbefehl aus anderen Feldern generiert.
Die einzelnen Zeilen innerhalb der Zelle benötige ich aber als einzelne Zellen nebeneinander.
Also von bspw. 3 Zellen in einer Spalte:
120L
1345
256RR
NOTE
------
150R
------
NABC
220LR
möchte ich zu diesen Zeilen und Spalten kommen:
120L | 1345 | 256RR | NOTE |
-----------------------------
150R |
-----------------------------
NABC | 220LR |
Nur wie?
Wie aus dem Beispiel ersichtlich, haben die Zellinhalte keine einheitliche Syntax und Zeichenlänge.
Die Funktion Daten -> Text in Spalten... funktioniert wegen der Verkettung nicht.
Und Google spuckt nur Lösungen aus, die entweder gleiche Datensyntax (immer zwei Ziffern gefolgt genau von soundsoviel Zeichen etc.) oder andere Trennungszeichen vorraussetzen.
Auch ein paar rudimentäre Makros habe ich gefunden, die aber nicht genau das tun, was mir vorschwebt und ich habe keinen Schimmer, wie ich die Umbiegen muss (habe keinerlei Erfahrung damit).
Eines z.B. schreibt die einzelnen Zeilen der Zellinhalte als neue einzelne Zellen untereinander in eine neue Spalte nebendran. Evt. hilft das jemanden als Ausgangspunkt:
Vielen Dank für Eure Hilfe,
fox78
ich sitze gerade auf Arbeit vor folgendem Probem:
In einer automatisch generierten Tabelle gibt es eine Spalte mit Zellen, die teilweise und in unterschiedliche Anzahl Zeilenumbrüche enthalten. Diese Daten werden per Verkettungsbefehl aus anderen Feldern generiert.
Die einzelnen Zeilen innerhalb der Zelle benötige ich aber als einzelne Zellen nebeneinander.
Also von bspw. 3 Zellen in einer Spalte:
120L
1345
256RR
NOTE
------
150R
------
NABC
220LR
möchte ich zu diesen Zeilen und Spalten kommen:
120L | 1345 | 256RR | NOTE |
-----------------------------
150R |
-----------------------------
NABC | 220LR |
Nur wie?
Wie aus dem Beispiel ersichtlich, haben die Zellinhalte keine einheitliche Syntax und Zeichenlänge.
Die Funktion Daten -> Text in Spalten... funktioniert wegen der Verkettung nicht.
Und Google spuckt nur Lösungen aus, die entweder gleiche Datensyntax (immer zwei Ziffern gefolgt genau von soundsoviel Zeichen etc.) oder andere Trennungszeichen vorraussetzen.
Auch ein paar rudimentäre Makros habe ich gefunden, die aber nicht genau das tun, was mir vorschwebt und ich habe keinen Schimmer, wie ich die Umbiegen muss (habe keinerlei Erfahrung damit).
Eines z.B. schreibt die einzelnen Zeilen der Zellinhalte als neue einzelne Zellen untereinander in eine neue Spalte nebendran. Evt. hilft das jemanden als Ausgangspunkt:
Code:
Option Explicit
Sub Zellen_Splitten()
Dim DatFeld
Dim i As Integer, j As Long
Dim rZelle As Range, rBereich As Range
Set rBereich = Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Application.ScreenUpdating = False
rBereich.Offset(0, 1).EntireColumn.Insert
For Each rZelle In rBereich
DatFeld = Split(rZelle, Chr(10))
For i = 0 To UBound(DatFeld)
j = j + 1
Cells(j, 2) = DatFeld(i)
Next
Next
Application.ScreenUpdating = True
End Sub
Vielen Dank für Eure Hilfe,
fox78