ich suche verzweifelt nach einer VBA-Lösung zum Anpassen eines Filters einer Pivot Tabelle. Ich habe ein Tabellenblatt(Tabelle2) mit einer Pivottabelle (Kostenart / Betrag) und als Filter die Kostenstellen. In einem zweiten Tabellenblatt stehen in einer Spalte die Kostenstellennummern, welche je nach Kostenstellenverantwortlichen aber in der Nummer und Anzahl variieren können.
Folgenden Code konnte ich schon entwickeln, wobei zum einen dies nur für eine Kostenstelle funktioniert und ich auch nur auf dem selben Tabelleblatt auf die Zelle F1 und nicht auf das andere Tabelleblatt verweisen kann.
Sub Filter_setzten()
Worksheets("Tabelle2").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Cost Cent").ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Cost Cent"). _
CurrentPage = [F1].Value
End Sub
Vielen Dank im Voraus
Hendrik