|
Bisher bin ich so weit.
Dim chkRange As Range
Dim newRange As Range
Set chkRange = Range("F6:F449")
Set newRange = Range("G6:G449")
chkRange.SpecialCells(xlCellTypeVisible).Copy
newRange.SpecialCells(xlCellTypeVisible).PasteSpecial (xlPasteValuesAndNumberFormats)
P.s: Sorry für die Darstellung, leider weiss ich nicht wie ich den code So einfügen kann, dass er als Code formatiert erscheint. :)
Gruß,
Peter
|