|
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
|