Automatisch aktualisierter Filter
27.06.2019 11:23:32
Sengyr
ich bin noch ganz neu im Bereich VBA und habe direkt ne Frage.
Ich habe eine Tabelle Mit Spalten A-E
Die Filter in jeder Spalte sollen durch einen Zellbezug in einem anderen Tabellenblatt dynamisch geändert werden können.
Hab hier schon ein wenig gestöbert und es mit folgendem Code versucht:
Private Sub Worksheet_Change(ByVal Target As Range)
Range("$A$1:$E$7961").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Sheets("Tabelle2").Range("$A$2:$E$3"), Unique:=False
End Sub
Er macht zwar generell das was er soll, aber die Aktualisierung geschieht nur wenn ich in dem "Quellen-Tabellenblatt" eine Eingabe tätige. Also keine direkte automatische Aktualisierung.
Evtl. hat hier jemand spontan nen Hinweis was ich falsch gemacht habe.
Danke schonmal
Gruß Sebastian
Anzeige