Office: Pivot-Filter per VBA setzen

Hallo zusammen,

ich habe hier ein (möglicherweise triviales ) Problem:

mit dem Code

Code:

wird der Filter zweier Pivot-Tabellen geändert, so daß nach dem Kriterium "UCH" gefiltert wird. Da auch andere Kriterien in Frage kommen, möchte ich eigentlich das Kriterium aus einer Zelle im gleichen Tabellenblatt auslesen und in dem Filterfeld "Abteilungszuordnung" einfügen. Vielleicht kann mir jemand helfen, dies zu erreichen...

Vielen Dank...

Walter Hellekamps

:)

 

Hallo,

ungetestet - UCH steht in Zelle A1:

ActiveSheet.PivotTables("PivotTable3").PivotFields("Abteilungszuordnung"). _
CurrentPage = [A1].value
ActiveSheet.PivotTables("PivotTable2").PivotFields("Abteilungszuordnung"). _
CurrentPage = [A1].value

 

...das klappt bestens.

Vielen Dank, Woody *Smilie

 

Hallo, ist zwar schon alt, aber die Anwendung ist interessant. Kann ich auch aus einem anderen Blatt den Filter holen?

In Blatt1 sind Projektnr und der Button für das Makro.
In Blatt2 ist die Pivottabelle mit dem Filter.


Sub Projekt1()

Sheets("Ist-Std.").Select
ActiveSheet.PivotTables("IstStd").PivotFields("Auftragsnr"). _
Sheets("Projekt1") = [A1].Value
End Sub

Funktioniert leider nicht.

Mit CurrentPage = [A1].Value funktioniert es.

Viele Grüße
Oliver

 

Kleine Korrektur:
Sub Projekt1()

Sheets("Blatt2").Select
ActiveSheet.PivotTables("IstStd").PivotFields("Auftragsnr"). _
Sheets("Blatt1") = [A1].Value
End Sub