Hallo,

ich habe eine Frage zum Thema AutoFilter.

Um die Filtereinstellungen des Autofilters in ein Array zu speichern, möchte ich folgenden Code nutzen. Wichtig hier ist, dass mehrere Kriterien ausgewählt werden können und die gespeichert werden.

Public Sub Testo()

    Dim vntCriteria As Variant

    vntCriteria = Worksheets("Test").AutoFilter.Filters(1).Criteria1

    If IsArray(vntCriteria) Then
        MsgBox "Mehrere Werte"
    Else
        MsgBox vntCriteria
    End If

End Sub

Leider speichert immer nur das erste Kriterium, es wird also kein Array angelegt.

Beispielsweise habe ich eine Spalte mit A, B, C und D und filtere A und B. Lass ich das Makro durchlaufen, gibt er mir aber immer nur A als Kriterium heraus.

Hintergrund ist, dass ich zur Bearbeitung eienr großen Tabelle die Filter entfernen und nachher wieder setzen möchte.

Wenn nötig gebe ich auch gerne noch mehr Info´s.

Danke schon mal im Voraus.

Joachim