Mehrere Werte Komma separiert zusammenfassen

[frozenpre]

Hallo zusammen,

ich brauche Hilfe bei einer Datei, die folgendermaßen aufgebaut ist Spalte A hat eine Liste von Werten, die mehrfach in der Liste vorkommen, Spalte B hat für jeden Wert von A eine Liste eigenständiger Werte, siehe angehängtes Beispiel. Also bspw.:

A          B
1          2
1          4
2          1
2          2
2          4
3          1
3          3
3          4

Mein Ziel ist die Werte von B, welche zu einem spezifischen Wert von A gehören, Komma separiert in einer Zelle zusammenzufassen, also für mein Beispiel:

A          B
1          2,4
2          1,2,4
3          1,3,4

Leider habe ich keine Idee, wie ich das automatisieren kann und die Liste ist für eine manuelle Bearbeitung viel zu groß. Kann mir hier jemand weiterhelfen?
Vielen Dank im voraus

[Ralf A]

Hi,

mit PQ geht das ganz easy...

[maninweb]

Hallo,

in einem Excel, das noch nicht GRUPPIERENNACH kennt, kannst Du verwenden ...

PHP-Code:

=HSTAPELN(EINDEUTIG(A2:A9);WEGLASSEN(REDUCE("";EINDEUTIG(A2:A9);LAMBDA(A;V;VSTAPELN(A;TEXTVERKETTEN(",";1;FILTER(B2:B9;A2:A9=V)))));1)) 


Und in einem Excel, das bereits GRUPPIERENNACH kennt ...

PHP-Code:

=GRUPPIERENNACH(A2:A9;B2:B9;LAMBDA(A;TEXTVERKETTEN(",";1;A));0;0) 


Gruß

[Gast 123]

Hallo

---

dazu gibt es noch eine VBA Lösung, dann sind wir komplett.

mfg Gast 123

[redeagle56]

Hallo,
es geht auch mit EINDEUTIG.
Siehe Tabelle.

MfG Günter

  Example_2.xlsx (Größe: 17,03 KB / Downloads: 5)

[frozenpre]

Hallo zusammen,

vielen Dank für die Antworten, wie so häufig gibt es scheinbar diverse Lösungen für das Problem. Es hat auf jeden Fall wunderbar funktioniert, danke.

Grüße

[EA1950]

Hallo,

Und in einem Excel, das
1) bereits GRUPPIERENNACH kennt 
2) auch Semikola (statt der Kommata) als Trennzeichen akzeptiert
3) bereits die neue dynamische Bereichssyntax kennt ...

PHP-Code:

=GRUPPIERENNACH(A:.A;B:.B;MATRIXZUTEXT;1;0) 


[snb]

UDF

PHP-Code:

Function F_snb(sn)
  sn = sn
  With CreateObject("scripting.dictionary")
    For j = 1 To UBound(sn)
      .Item(sn(j, 1)) = IIf(.Item(sn(j, 1)) = "", "", .Item(sn(j, 1)) & ",") & sn(j, 2)
    Next
    F_snb = Application.Transpose(Array(.keys, .items))
  End With
End Function 


in

D2:E4    {=F_snb(A2:N9)}