Office: (Office 2016) Duplikate finden und deren Inhalt (aus anderer Spalte) zusammenfassen

Hallo zusammen,

ich frickele nun schon seit einiger Zeit an folgender Problemstellung herum:

Beispieltabelle:

Spalte A: Spalte B:

1021 Platz 1
1452 Platz 3
1452 Platz 4
1452 Platz 2
2137 Platz 2
2137 Platz 3
8054 Platz 5

Es sollen, sofern es sich in Spalte A um ein Duplikat handelt, die Einträge aus Spalte B konkateniert werden (Reihenfolge egal; meinetwegen gerne auch in eine weitere Zielspalte C).

Sprich: Zielformat:

Spalte A: Spalte B: Spalte C:

1021 Platz 1 Platz 1
1452 Platz 3 Platz 3, Platz 4, Platz 2
1452 Platz 4 {leer oder wie in Zeile 2}
1452 Platz 2 {leer oder wie in Zeile 2}
2137 Platz 2 Platz 2, Platz 3
2137 Platz 3 {leer oder wie in Zeile 5}
8054 Platz 5 Platz 5

mit =WENN(IDENTISCH(A14;A15);TEXTVERKETTEN(", ";WAHR;B14;B15)) kam ich ein Stück weit, passt aber nicht. Und berücksichtigt auch nicht >alle< Duplikate.

Würde mich über Hilfe sehr freuen, vorab vielen Dank!

 

Hi,

ich könnte dir eine VBA-Lösung anbieten (Bedingung ist, dass die Daten nach Spalte A sortiert vorliegen und somit gleiche Zahlen direkt untereinander stehen):

Code:

Sub Zusammenfassen()
    Dim lngZeile As Long
    Dim lngLetzte As Long
    Dim lngAnzahl As Long
    Dim strZusammen
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For lngZeile = 1 To lngLetzte
        lngAnzahl = Application.CountIf(Columns(1), Cells(lngZeile, 1))
        If lngAnzahl > 1 Then
            strZusammen = Application.Transpose(Range(Cells(lngZeile, 2), Cells(lngZeile + lngAnzahl - 1, 2)))
            Cells(lngZeile, 3) = Join(strZusammen, ", ")
            lngZeile = lngZeile + lngAnzahl - 1
        End If
    Next lngZeile
End Sub

Falls die zusammengefassten Werte nicht in Spalte C sondern in Spalte B eingetragen werden sollen, dann musst du diese Zeile ändern:

Code:

            Cells(lngZeile, [COLOR=#ff0000][B]2[/B][/COLOR]) = Join(strZusammen, ", ")

Bis später,
Karin