Hallo zusammen,

ich habe ein Problem und komme derzeit nicht weiter. Die Suche hat nichts in der Form aufgebracht. Vielleicht kann mir hier jemand helfen.

Ich habe die folgende Tabelle in 3 Spalten (A-C) als Ausgangsdatei.

Ziel ist es Spalte B und C so zu konsolidieren, dass diese in jeweils einer Zelle stehen. Das Ganze jedoch in Abhängigkeit von Spalte A.

Hier ein Bild:
https://www.woodgrave.de/fileadmin/excel2.png

Um das Ziel zu verdeutlichen habe ich dieses in die Spalten D und E bereits manuell eingetragen. In der eigentlichen Datei geht es um >28000 Zellen die so verbunden werden müssen.

Ich habe mir einen Codeschnipsel anhand eines Beispiels das recht ähnlich war von einer Seite gezogen und etwas angepasst. Leider passt das jedoch vorne und hinten nicht und ich hab mich verzettelt. Darüber hinaus fehlt natürlich noch der Part für den "post_tag".

 Sub VerketteBinC()
    Dim lngB As Long, zB As Long, zC As Long, strT As String
    
    lngB = Cells(Rows.Count, 2).End(xlUp).Row
    zB = 1
    Do
       While IsEmpty(Cells(zB, 3))
          zB = zB + 1
       Wend
       zC = zB
         While (Cells(zC, 2)) = "category" And Not IsEmpty(Cells(zB, 3))
       
          If strT > "" Then strT = strT & " "
        strT = strT & Trim(Cells(zB, 3))
          
          zB = zB + 1
       Wend
       Cells(zC, 5) = strT
            strT = ""
    Loop Until zB >= lngB
 End Sub

Ich freue mich über jede Hilfestellung :)
Gruß