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