transponieren und verketten???

[alexander.liedauer]

Hallo liebe Community!

Ich habe folgendes Problem: In meiner Datei hab ich ca. 5.000 Zeilen und zwei Spalten.
Spalte A listet aktuell rund 5.000 Nummern auf, von denen aber nur ca 600 unterschiedlich sind.
Eine Zahl kann also mehrere Male vor kommen (oder auch nur ein mal).
Spalte B listet dann möglich "Zusatzinformationen" zu der in Spalte A genannten Zahl auf.

Also sieht das zb. so aus:
Zahl in "A"        Zusatzinfo in "B"
36030020           1A0008c
36030020           1A008d
36030030           1A007a
36030030           1A007b

Nun brauche ich allerdings alle Zahlen in "A" nur einmalig, also keine Duplikate, aber alle möglichen Zusatzinfos aus "B" zu den jeweiligen zahlen aus "A" dann "verkettet" in der Zelle in B (getrennt durch in Semikolon)

Würde in dem Fall dann also so aussehen sollen:
Zahl in "A"           Zusatzinfo in "B"
36030020           1A008C; 1A008d
36030030           1A007a; 1A007b

Ich kann das zwar manuell durch copy/paste und "verketten" machen, aber bei 5.000 Zeilen dauert das ja ewig! 
(Musterdatei im Anhang)

Gibt es da nicht eine einfachere Lösung? 

Vielen Dank schonmal!!!!!

[Fennek]

Hallo,

ohne Kenntnis deiner Datei ein "recycelter" Code (ungeprüft)

Code:

Sub F_en()
Dim Ar, DD As Object
Set DD = CreateObject("Scripting.Dictionary")

Ar = cells(1,1).currentregion
For i = 2 To UBound(Ar)
    If DD.exists(Ar(i,1)) Then
        DD(Ar(i,1)) = DD(Ar(i,1)) & "; " & Ar(i,2)
    Else
        DD(Ar(i,1)) = Ar(i,2)
    End If
Next i
Debug.Print DD.Count
Cells(1, 5).Resize(DD.Count, 2) = Application.Transpose(Array(DD.keys, DD.items))
End Sub

mfg

[RPP63]

Moin!
Ein 365-"Klassiker":

	A	B	C	D	E	F
1	Ausgangsdaten				so soll es am Ende aussehen:
2	36030020	1A007a			36030020	1A007a; 1A007b; 1A008c
3	36030020	1A007b			36030030	1A007a; 1A007b; 1A008c; 1A008d
4	36030020	1A008c			36030040	1A007a; 1A007b; 1A008c; 1A008d; 3A229; 3A232; 3C002; 3C003; 3C005; 6C004
5	36030020	1A008d
6	36030030	1A007a			und so ist es mit RPP-Formeln
7	36030030	1A007b			36030020	1A007a; 1A007b; 1A008c; 1A008d
8	36030030	1A008c			36030030	1A007a; 1A007b; 1A008c; 1A008d
9	36030030	1A008d			36030040	1A007a; 1A007b; 1A008c; 1A008d; 3A229; 3A232; 3C002; 3C003; 3C005; 6C004
10	36030040	1A007a
11	36030040	1A007b
12	36030040	1A008c
13	36030040	1A008d
14	36030040	3A229
15	36030040	3A232
16	36030040	3C002
17	36030040	3C003
18	36030040	3C005
19	36030040	6C004

Zelle	Formel
E7	=EINDEUTIG(A2:A19)
F7	=TEXTVERKETTEN("; ";1;FILTER(B$2:B$19;A$2:A$19=E7))
F8	=TEXTVERKETTEN("; ";1;FILTER(B$2:B$19;A$2:A$19=E8))
F9	=TEXTVERKETTEN("; ";1;FILTER(B$2:B$19;A$2:A$19=E9))

Gruß Ralf

[RPP63]

*freu*
so langsam freunde ich mich mit den neuen Funktionen, die LAMBDA() benötigen, an.

Hier muss nix mehr gezogen werden, es reichen 2 Formelzellen:

	B	C	D	E	F
1				so soll es am Ende aussehen:
2	1A007a			36030020	1A007a; 1A007b; 1A008c
3	1A007b			36030030	1A007a; 1A007b; 1A008c; 1A008d
4	1A008c			36030040	1A007a; 1A007b; 1A008c; 1A008d; 3A229; 3A232; 3C002; 3C003; 3C005; 6C004
5	1A008d
6	1A007a			und so ist es mit RPP-Formeln
7	1A007b			36030020	1A007a; 1A007b; 1A008c; 1A008d
8	1A008c			36030030	1A007a; 1A007b; 1A008c; 1A008d
9	1A008d			36030040	1A007a; 1A007b; 1A008c; 1A008d; 3A229; 3A232; 3C002; 3C003; 3C005; 6C004
10	1A007a
11	1A007b
12	1A008c
13	1A008d
14	3A229
15	3A232
16	3C002
17	3C003
18	3C005
19	6C004

Zelle	Formel
E7	=EINDEUTIG(A2:A19)
F7	=NACHZEILE(E7#;LAMBDA(a;TEXTVERKETTEN("; ";1;FILTER(B2:B19;A2:A19=a))))

[PIVPQ]

Hallo

Oder als Alternative die mittlerweile nicht mehr gern gesehene weil sie von mir stammt PQ Variante.

[RPP63]

die mittlerweile nicht mehr gern gesehene weil sie von mir stammt PQ Variante.

Blödsinn!
Das schöne an diesen Foren ist doch, dass man sich mal austoben darf!
Die wirklich(!) genialen Lösungen entstehen doch aufgrund des "Wettbewerbs" der Helfer.
Ich z.B. habe irgendwann mal den Schritt als Antworter in Foren gewagt, weil ich mich aus Spaß intensiv in VBA eingearbeitet habe.
Heute wirst Du von mir zu diesem Thema fast nichts mehr finden, weil ich es genial finde, was heutzutage (und natürlich auch früher) mit "simplen" Funktionen machbar ist.
Ich finde das gut und hoffe (wirklich!), dass ich durch Deine PQ-Lösungen einen erneuten Blick hinter den Horizont erhaschen darf!

So long und Gruß
Ralf

[maninweb]

Moin,

@PIVPQ: Quatsch, ganz im Gegenteil: Deine PQ-Lösungen sind immer gerne gesehen!

Gruß

[{Boris}]

Hi Ralf,

so langsam freunde ich mich mit den neuen Funktionen, die LAMBDA() benötigen, an.

NACHZEILE ist auch eine wirklich starke Funktion (im Gegensatz zu manch anderen)!

[Elex]

Hi

Mal schauen. Ich denke PQ wird in Zukunft noch seltener Gebrauch finden durch die neuen Funktionen von Excel. 
Ich finde die Syntax von PQ auch etwas schwerer zu lernen als VBA oder Formeln. Hier reicht aber ein Zweizeiler.

Code:

let
    Quelle = Excel.CurrentWorkbook(){[Name="Tabelle1"]}[Content],
    Gruppe = Table.Group(#"Quelle", {"Ausgangsdaten"}, {{"B Alle", each Text.Combine(_[Spalte1], ","), type text}})
in
    Gruppe

Gruß Elex

[alexander.liedauer]

Ok, Ergebnis sieht super aus... Aber woher kommen dann die Daten? Am Ende muss ich diese Formeln (???) ja dann in meine file einbauen und über ca 6.000 Zeilen ziehen...
Sorry, kenn mich da echt null aus...