Hallo ,
mit der ".SpecialCells(xlCellTypeVisible)-Methode" kann nur die gesamte Zeile kopiert werden, das geht nicht anders. Du kannst aber am Ende des Makros mit der Zeile
Range("A:D,F:H").Delete Shift:=xlToLeft
die überflüssigen Spaöten wieder löschen (im Beispiel sind es die Spalten A, B, C, D, F, G, H).
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]