Hallo,
mit dem Macro unten kann ich das Ergebnis einer gefilterten Liste aus Tabelle 1 (von A2 bis Z) in Tabelle 2 kopieren.
Ich würde aber gern die Filterergebnisse in ein jeweils neues Tabellenblatt kopieren damit das Ergebnis der ersten Filterung nicht überschrieben wird.
Der Name des jeweils neuen Tabellenblattes kann fortlaufend nummeriert sein. Toll wäre es, wenn man den Namen des Tabellenblattes über eine Input-Box eingeben könnte (das wäre aber nicht unbedingt nötig).
Option Explicit
Sub KopiereFilterZeile()
ActiveSheet.Range("A2:Z" & ActiveSheet.UsedRange.Rows.Count). _
SpecialCells(xlCellTypeVisible).Copy
Worksheets("Tabelle2").Range("A2").PasteSpecial
End Sub
Grüße
Tom
|