|
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ß
|