Office: mit VBA Berichtsfilter mehrere Pivottabellen ändern.

Hi,

ich habe mehrere Pivottabellen aus einer Datenquelle erstellt.
Jede Pivottabelle hat unterschiedliche Felder aus der Quelle.

Ich möchte nun per VBA die Berichtsfilter aller Pivots filtern, sodas mir "leere" und mit "0" nicht angezeigt werden.
Also im Prinzip alle in denen ein Wert steht.

Per Makrorecorder hab ichs aufgezeichnet, und einzeln klappt das alles.

aber ich möchte nicht den selben Code für jede Pivot neu schreiben, sondern alles variabel mit einem kleinen Code.

Hier einer meiner Versuch alle Pivots anzusprechen und nacheinander zu filtern.
Code:

beim durchlaufen tut sich in der Pivot gar nix.

:)

 

Hi,

Hab das Problem immer noch nicht ganz lösen können.

Mittlerweile kann ich für ein Pivot mit VBA den Berichtsfilter aktualisieren:
Code:

Dabei sprech ich ja den besagten Filter ("PivotField1") direkt an.

Per VBA aber meherer Pivots mit unterschiedlichen Berichtsfilern ändern, ohne diese explizit anzusprechen, hab ich immer noch nicht hinbekommen.

Jemand ne Idee wie man nur die Berichtsfilter mehrerer Pivots ansprechen kann?

 

Ok. Ich versuch noch mal mein Glück.*mrcool
Mit folgendem Code aktualiesiere ich eine Pivottabelle.

Code:

Wie kann ich diesen Code umbauen damit mir nicht nur diese eine sonderen mehrere Pivotabellen gefiltert werden?
der Name der Pivottables und der Pivotfields ist dann ja anders.*rolleyes.gif*

 

Hallo phobos,

Versuches mal.

Code:

 

Hi HS(V),

Danke für die Hilfe*Smilie

Bei deinem Code kommt ne Fehlermeldung. "Typen unverträglich"
in dieser Zeile:
Code:

 

Hallo phobos,

Versuch Anhang.

 

Hallo phobos,

ich habe das Beispiel von HS(V) so angepaßt, daß beim Filterwechsel der einen Pivot, der Filter der anderen Pivot die Einstellungen übernimmt.

Gruß von Luschi
aus klein-Paris

 

Bei Euch funktionierts.
Aber meine Pivots sind anders aufgebaut. Beachte "Berichtsfilter"!
Nach dem wird auch gefiltert.

Hab die Datei von Harry mal angepasst wie sie vom Sinn her bei mir aufgebaut ist.
Da kommt dann auch die selbe Fehlermeldung.

Vielleich könnt Ihr da man schauen und den Code anpassen.*Smilie

 

Hallo phobos,

hier die neu angepaßte Version.

Gruß von Luschi
aus klein-Paris

 

Der Code lässt sich nicht starten? Was isn jetzt los?

 

Hallo phobos,

nimm mal die Datei aus dem Anhang, drücke die Tastenkombination Alt + F8 und starte das Makro 'startExcelOption'.
Es kann sein, daß bei Dir einige Excel-Option abgeschalten sind. Anschließend klappt's wieder.

Gruß von Luschi
aus klein-Paris

 

Nee. Das is es nich.
Code:

lässt sich nicht starten.
Das liegt an (pvt as PivotTable). Sobald dies Fehlt wird der Code gestartet.

 

Hallo phobos,

Du mußt Dir schon meinen gesamten Vba-Code anschauen, erst dadurch wird die Prozedur 'Sub hsv(pvt As PivotTable)" startfähig (siehe Grafik-Anhang)

Gruß von Luschi
aus klein-Paris

 

Moin Luschi,

upps. Mein Fehler. Hab den TEile glatt übersehen*eek.gif*

Der Code läuft jetzt, aber das ERgebnis ist leider nicht das was sollte.

Per folgendem Code wird ja immer die gleiche Pivot von mir angepasst.
In deiinem Beispiel ("Draaitabel1")

Code:

Das funktioniert auch so.

Dann kommt ja dein Code ins Spiel, der die Filter von oben (Test1 in PivotTables("Draaitabel1")) kopiert und auf alle anderen Tables übertragen soll.

Es sollen also in deinem Beispiel alles auser "0.00" in den Filtern von TEst1 und TEst2 angezeigt werden.



Der Code läuft auch durch, nur das die zweite Pivotabelle nicht angepasst wird. Da bleibts beim alten.

 

Moin,

Versuche es mal so.