Daten aus Zeilen in Spalten

[RPP63]

Ich komme noch einmal auf Antons für mich genialer Formel aus #3 zurück:
=TEXTTEILEN(WECHSELN(TEXTVERKETTEN("|";0;A1:A22);"||";"¶");"|";"¶";;;"")

Ich bin mal in mich gegangen () und biete folgende Alternative an:
=TEXTTEILEN(WECHSELN(MATRIXZUTEXT(A1:A22);"; ;";"|");"; ";"| ";;;"")

A

B

C

D

E

F

G

H

I

J

K

L

M

1

M17.1

RPP63

2

I10.00

M17.1

I10.00

5 822.01

8 561.1

3

5 822.01

M54.5

F45.41

I10.00

J45.99

M25.51

R07.0

U07.2

R51

Z11

U99.0

Z58

8 918.12

4

8 561.1

K62.3

K59.01

5 486.4

5 932.42

5

6

M54.5

EA1950

7

F45.41

M17.1

I10.00

5 822.01

8 561.1

8

I10.00

M54.5

F45.41

I10.00

J45.99

M25.51

R07.0

U07.2

R51

Z11

U99.0

Z58

8 918.12

9

J45.99

K62.3

K59.01

5 486.4

5 932.42

10

M25.51

11

R07.0

12

U07.2

13

R51

14

Z11

15

U99.0

16

Z58

17

8 918.12

18

19

K62.3

20

K59.01

21

5 486.4

22

5 932.42

Zelle	Formel
B2	=TEXTTEILEN(WECHSELN(MATRIXZUTEXT(A1:A22);"; ;";"|");"; ";"| ";;;"")
B7	=TEXTTEILEN(WECHSELN(TEXTVERKETTEN("|";0;A1:A22);"||";"¶");"|";"¶";;;"")

Gruß Ralf

[ws-53]

Mit Power Query lässt sich dass mehr oder weniger einfach zusammenklicken. Es ist zwar nicht so mächtig wie VBA, aber als ETL-Tool ist es recht genial. Und abgesehen davon, dass neues anfangs meist erst gelernt werden will, geht dies bei Power Query eigentlich recht einfach.

Erstelle doch einfach mal eine Mustermappe mit anonymen Daten in den Spalten A bis V, dann lässt sich das schnell realisieren.

[Gast 123]

Hallo

Sorry das ich jetzt erst gesehen habe wie eilig die Sache ist.  Hier mal meine VBA Lösung.
Es ist die Beispiel Datei von Alexandra, aber -ohne doppelte- Wiederholungen.

Du kannst ja deine Original Daten bitte ins Beispiel kopieren und das Makro starten.
Würde mich freuen wenn es damit auf Anhieb klappt.

@Alexandra   ich arbeite auch gerne mit For Each Zelle, hier klappt das aber nicht!!
Wenn du willst schau dir bitte mal meinen Trick mit zwei "j, i"  For Next Schleifen an.
Vielleicht weißt du noch nicht, das ich bei der Version das j im Makro auf xx setzen kann!

mfg Gast 123

---

Nachtrag   eine uralte Technik aus Excel 95/97, die snb mit seinen Einzeilern mühelos toppen kann.

---

Hallo

ich habe meinen Code hier auf Array umgestellt. der dürfte bei 500.000 Zeilen deutlich schneller sein.
Würde mich mal interessieren wie gross der Zeitunterschied bei beiden Makros ist??

mfg Gast 123

[ws-53]

Hier mal ein PQ-Beispiel, das sich fast vollständig erklicken lässt. Hier muss man nur die Möglichkeit:

    List_Codes  = Table.AddColumn(Group_Fälle, "Code", each [Alle][Diagnose]),

kennen.

[snb]

Code:

Sub M_snb()
  For Each it In Columns(1).SpecialCells(2).Areas
    n = n + 1
    Cells(n, 4).Resize(, it.Count) = Application.Transpose(it)
  Next
End Sub

oder

Code:

Sub M_snb()
  For j=1 to Columns(1).SpecialCells(2).Areas.count
    Cells(j, 4).Resize(, Columns(1).SpecialCells(2).Areas(j).Count) = Application.Transpose( Columns(1).SpecialCells(2).Areas(j))
  Next
End Sub