Filter aus Direktbereich lesen/aktiviere
09.04.2020 11:32:12
Krausert95
ich habe wieder mal ein kleines Problem. Ich habe vor einen Filter anhand von aktivierten Checkboxen anzuwenden.
Ich habe insgesamt 10 Checkboxen (Gegenstand 1-10) welche man auf einer Seite anklicken kann. Anhand dieser Checkboxen soll dann auf einer anderen Seite ein Filter gesetzt werden, damit mit nur die ausgewählten Gegenstände angezeigt werden.
In meinem Beispiel habe ich jetzt mal Gegenstand 1, 3, 5 und 7 ausgewählt. Ich habe mir jetzt gedacht, erstmal den aktuellen Filter auszulesen und dann nach und nach einen weiteren Gegenstand hinzuzufügen. Ich lese den Filter und schreibe ihn in den Direktbereich, allerdings weiß ich nicht, wie ich den alten Filter plus einen neuen Gegenstand wieder aktiviere, oder überhaupt Sache aus dem Direktbereich auslese. Vll hat ja jemand von euch eine Lösung, oder einen eleganteren Weg wie ich das hin bekomme.
Danke schonmal für die Antworten.
Hier mein Code für das auslesen des Filters, der klappt auch soweit:
Sub filter_auslesen()
Sheets("Tabelle2").Select
With ActiveSheet.AutoFilter
With .Filters
For spalte = 3 To 7
With .Item(spalte)
If .On Then
mykrit = .Criteria1
If IsArray(mykrit) Then
Debug.Print Join(mykrit, ",")
Else
Debug.Print mykrit
If .Operator Then
myop = .Operator
Debug.Print myop
mykrit2 = .Criteria2
Debug.Print mykrit2
End If
End If
End If
End With
Next spalte
End With
End With
End Sub