Filter automatisch erkennen

[elamigo]

Guten Tag zusammen,

ich hab einen VBA Befehl der mir via Userform eine gefilterte Tabelle auf ein neues tabellenblatt kopiert. Also ich kann die Tabelle filtern und dann klicke ich auf den Commandbutton, geben den neuen Tabellenblatt namen ein und drücke auf den anderen Command Button und das Tabellenblatt wird erstellt. Allerdings bekomme ich nur den Autofilter mit kopiert, wenn ich die MAIN Tabelle nicht filtern. Sofern ich filter ist der Autofilter auf dem neuen Tabellenblatt weg.



Meine Idee ist wie folgt allerdings kommt immer der untere Befehl und wenn ein Autofilter schon drauf ist, erkennt 

Code:

Sub filter()

    If ActiveSheet.FilterMode = True Then
        MsgBox "Filter gesetzt"
        End If
       
    If ActiveSheet.FilterMode = False Then
    Range("A6:AF6").Select
    Selection.AutoFilter
        MsgBox "Filter nachträglich gesetzt "
    End If

End Sub

Gruß

[schauan]

Hallöchen,

Excel wird von einer gefilterten Tabelle die Filter eventuell nicht mitnehmen, weil die weggefilterten Daten nicht mehr da sind und die entsprechenden Einstellungen nicht mehr zu den Daten passen. Du kannst aber einfach nach dem Kopieren den Fitler neu setzen ...