Ich möchte die Werte von sichtbaren zeilen/Zellen eines arbeitsblattes in eine neue MAppe kopieren. Leider ahbe dazu wenig brauchbares Materiel gefunden.
Kann mir jemand weiterhelfen?
Danke
Andy
Sub ohne_ausgeblendet()
Worksheets("Tabelle1").UsedRange.SpecialCells(xlCellTypeVisible).Copy _
Destination:=Worksheets("Tabelle2").Range("A1")
End Sub
Sub sichtbare_zellen_kopieren()
Dim rng As Range
Set rng = Cells.SpecialCells(xlCellTypeVisible)
rng.Copy
Workbooks.Add
ActiveSheet.Paste
End Sub