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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen