Option Explicit

Sub gefilterte_Werte_mit_Überschrift_kopieren()
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Abfrage: Wenn Autofilter aktiviert, dann...
If Sheets("gefiltert Werte").FilterMode Then
'...alle Werte in Blatt "kopierte Werte" löschen...
Sheets("kopierte Werte").Cells.ClearContents
'...die gefilterten Werte in Blatt "gefilterten Werte" kopieren und...
Sheets("gefiltert Werte").Range("B2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy
'...in Blatt "kopierte Werte" ab Zelle A1 einfügen
Sheets("kopierte Werte").Range("A1").PasteSpecial Paste:=xlPasteValues
'Abfrage Ende
End If
Application.CutCopyMode = False
End Sub

Option Explicit

Sub gefilterte_Werte_ohne_Überschrift_kopieren()
Dim rngFilterbereich As Range
'Bildschirmaktualisierung ausschalten
Application.ScreenUpdating = False
'Abfrage: Wenn Autofilter aktiviert, dann...
If Sheets("gefiltert Werte").FilterMode Then
    '...alle Werte in Blatt "kopierte Werte" löschen...
    Sheets("kopierte Werte").Cells.ClearContents
    '...der Variablen "rngFilterbereich" den gefilterten Bereich zuweisen...
    Set rngFilterbereich = Sheets("gefiltert Werte").AutoFilter.Range
    '...Fehlerbehandlung einschalten...
    On Error Resume Next
    '...Bereich kopieren...
    Set rngFilterbereich = rngFilterbereich.Offset(1, 0).Resize(rngFilterbereich.Rows.Count - 1, rngFilterbereich.Columns.Count)
    If Not Err Then rngFilterbereich.Copy
    '...und in Blatt "kopierte Werte" ab Zelle A1 einfügen
    Sheets("kopierte Werte").Range("A1").PasteSpecial Paste:=xlPasteValues
'Abfrage Ende
End If
Application.CutCopyMode = False
End Sub

2

Excel - Version

Getestet