gefilterte Tabelle kopieren

[elamigo]

Moin zusammen, ich habe eine Tabelle auf einem Tabellenblatt. Diese Tabelle filter ich. Nachdem die Filter gesetzt sind möchte ich die Tabelle gerne kopieren. Der Code den ich verwende ist: ActiveSheet.Copy Before:=Sheets(1)

Allerdings kopiert er mir dann auch immer alle Daten welche gerade durch den Filter ausblendet sind.

Alternativ wäre das kopieren über: Range("A6:AF1133").SpecialCells(xlCellTypeVisible).Copy
möglich, allerdings möchte ich das gesamte Tabellenblatt kopieren. Und keine Anpassungen mehr machen wie Zeilenbreite oder Gruppierungen.

danke

[UweD]

Hallo

ungeprüft...

Code:

   Dim TB As Worksheet
   With ActiveSheet
       .Copy Before:=Sheets(1)
       Set TB = ActiveSheet 'das ist jetzt das Neue
       TB.Cells.ClearContents
       .Range("A6:AF1133").SpecialCells(xlCellTypeVisible).Copy TB.Range("A6")
   End With

LG UweD

[Kuwer]

Hallo Uwe,

statt

TB.Cells.ClearContents

würde ich vorsichtshalber

TB.Range("A6:AF1133").ClearContents

nehmen.

Gruß Uwe

[elamigo]

Klappt super jungs danke euch! Habe Die zellen jetzt gecleart wie es Uwe vorgeschlagen hat. Die Filter dann zwar weg, aber sind ja easy wieder drauf gemacht. Also herzliches Danke euch beiden :)