Office: (Office 2016) Inhalte von Zeilen anhand ID zusammenführen

Hallo,

ich haben folgende Tabelle:

A | B
ID1 | Text1
ID1 | Text2
ID2 | Text3
ID3 | Text4

Jetzt sollen die Texte, die eine identische ID haben, alle in eine Zeile zusammengeführt werden. Dabei ist es mir egal, ob die Texte dann mit einem Trennzeichen zusammen in eine Zelle kommen oder in weiteren Spalten ergänzt werden. Ziel ist es, folgende Tabelle zu haben:

A | B
ID1 | Text1, Text2
ID2 | Text3
ID3 | Text4

Ich finde keine Lösung, kann mir jemand helfen? Dankeschön!

 

Hallo,

welche Version von Excel?
Als Matrixformel.

Code:

=TEXTVERKETTEN(" ";1;WENNFEHLER(INDEX(B$1:B$4;AGGREGAT(15;6;ZEILE($A$1:$A$10)/(A$1:A$4=C1);ZEILE(A$1:A$10)));"") )

 

Hi Sarah,

oder mit folgendem Makro, mit dem die Daten direkt an Ort und Stelle transponiert werden:

Code:

Sub Transponieren1()
    Dim arrWerte
    Dim lngZeile As Long
    Dim strZusammen As String
    Dim lngLetzte As Long
    lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
    For lngZeile = 1 To lngLetzte
        If Cells(lngZeile, 1) = Cells(lngZeile + 1, 1) Then
            strZusammen = strZusammen & ", " & Cells(lngZeile, 2)
            Range(Cells(lngZeile, 1), Cells(lngZeile, 2)).ClearContents
        Else
            If InStr(strZusammen, ", ") > 0 Then
                strZusammen = Mid(strZusammen, 3) & ", " & Cells(lngZeile, 2)
                arrWerte = Split(strZusammen, ", ")
                Cells(lngZeile, 2).Resize(1, UBound(arrWerte) + 1) = arrWerte
            End If
            strZusammen = ""
            Erase arrWerte
        End If
    Next lngZeile
    ' Leere Zeilen löschen
    Range(Cells(1, 1), Cells(lngLetzte, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

---

 

Danke für die Antwort. Es ist MS Excel 2016. Ich hab die Formel jetzt in Spalte C kopiert, aber kriege nur einen #NAME?-Fehler zurück. Leider verstehe ich die Formel nicht genug, um den Fehler zu finden :-/

 

Danke Dir. Mit Makros hab ich in Excel noch nie gearbeitet, was mache ich damit? Die Registerkarte "Entwicklertools" hab ich gar nicht (Anwendung auf der Arbeit, ggf. ist was IT-seitig eingeschränkt)

 

Hi Sarah,

ob bei dir keine Makros angewendet werden dürfen kann ich dir leider nicht sagen - da musst du in der IT-Abteilung nachfragen.

Standardmäßig sind die Entwicklertools nicht eingeblendet, man muss sie erst aktivieren: unter den Excel-Optionen -> Menüband anpassen -> Hauptregisterkarten -> Häkchen bei "Entwicklertools" setzen.

---

 

Hallo Sarah,

es gibt auch für Deine XL-Version zwei alternative Lösungen ohne VBA. Dazu siehe Datei.

Für die Formellösung sollte die Quelldaten gemäß Deiner ID sortiert sein und Du bräuchtest rechts neben der Ergebnisspalte freie Hilfsspalten (die Du nach der Formelerstellung ausblenden kannst.

Formel D2 ziehend weit genug nach unten kopieren und Formel E2 weit genug nach rechts und unten ziehend kopieren:

Alternativ dazu eine PowerQuery (PQ) Lösung. Bei weiteren Daten musst Du hierfür lediglich den Aktualisierungsbutton im Menü Daten betätigen. Die ID-Daten brauchen hierzu auch nicht sortiert vorliegen