10.09.2018, 09:27
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 SubEs geht in die richtige Richtung. Ich schaue mir das nachher mal an. Danke