Tabellenfilter via Zelle steuern
03.02.2022 17:22:18
Kalle
ich würde gerne den Filter einer intelligenten Tabelle (A3) von einem anderen Blatt aus ansteuern. Da die Ansätze zur Autofilter-Funktion hier nicht greifen, bin ich über ListObjects gegangen: Gebe ich den Filterwert (1 bis 6; 11) per Hand in A3 ein, filtert die Tabelle auf Blatt 2 korrekt und die Ergebnisse auf Blatt 1 ändern sich entsprechend.
Das ChangeEvent greift.
1. Problem: Will ich die Wertänderung via Steuerungselement DropDown erzeugen, wird die Wertänderung in A3 ignoriert. Wie kann ich das verhindern? Es ändert sich doch auch der Wert in der Zelle; also wieso löst das Ereignis nicht aus?
2. Problem: Wie kann ich den Filter auf "Alle anzeigen" zurückstellen; gibt es einen Wert bei List.Object, der alle Filter zurücksetzt? "Alle anzeigen" eintippen klappt jedenfalls nicht ...
Anbei die Datei und der fragliche Code: https://www.herber.de/bbs/user/150841.xlsm
Sub worksheet_change(ByVal Target As Range)
If Target.Address(0, 0) = "A3" Then
Worksheets("EVA ZOE Block I").ListObjects("ZOEva1").Range.AutoFilter Field:=1, _
Criteria1:=Range("A3").Value
End If
End Sub
Kalle