Office: Zellen verbinden und Text kopieren

Hallo zusammen,

ich benötige euere Hilfe. Ich habe folgende Tabelle:
Spalte A Spalte B
123123 Text 1
123123 Text 2
123123 Text 3
123124 Text 4
123124 Text 5

Ich möchte gerne, wenn in Spalte A der gleiche Wert steht, Spalte B in einen Fließtext zusammenfassen.

Spalte A Spalte B
123123 Text 1 Text 2 Text 3
123124 Text 4 Text 5

Kann mir jemand weiterhelfen?

Gruß
Daniel

 

Moin Daniel

Benutze TEXTVERKETTEN().

 

Hi Daniel,

versuche es mal mit folgendem Makro:

Code:

Sub Zusammenfassen()
    Dim lngZeile As Long
    Dim lngAnzahl As Long
    Dim strText
    lngZeile = 1
    Do
        lngAnzahl = Application.CountIf(Columns(1), Cells(lngZeile, 1))
        If lngAnzahl > 1 Then
            strText = Application.Transpose(Range(Cells(lngZeile, 2), Cells(lngZeile + lngAnzahl - 1, 2)))
            Cells(lngZeile, 2) = Join(strText, ", ")
            Range(Cells(lngZeile + 1, 1), Cells(lngZeile + lngAnzahl - 1, 1)).ClearContents
        End If
        lngZeile = lngZeile + lngAnzahl
    Loop While Cells(lngZeile, 1) <> ""
    If Application.CountA(Columns(1)) < lngZeile Then
        Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    End If
End Sub

Ich bin davon ausgegangen, dass deine Daten, die zusammengefasst werden sollen, ab Zeile 1 stehen - wenn nicht, musst du die Start-Zeilennummer lngZeile entsprechend anpassen.

---

 

Klappt!
Vielen Dank!