Facebook to Excel Hilfe

[PhilippB]

Code:

Sub Main
with  activesheet.usedrange.rows("3:3")
.replace(chr(32), "")
for each ar in Cells.specialcells(xlCellTypeConstants).areas
    ar.copy cells(rows.count, 1).end(xlup).offset(1)
next ar
end with
End Sub

Es geht in die richtige Richtung. Ich schaue mir das nachher mal an. Danke