Office: Berichtsfilter für alle Pivottabellen eines Arbeitsblatts ändern

Hallo zusammen,

auf einem Arbeitsblatt befinden sich mehrere Pivotabellen mit den Berichtsfiltern "Week" und "Year".

Ich möchte jeweils zwei Makros haben in denen die "Week" für alle Pivots um +1 bzw. -1 geändert wird.

Makro 1:
- Berichtsfilter aller Pivots für die "Week" ist 9
--> Ausführung des Makros
--> Berichtsfilter aller Pivots für die "Week" ist 8
--> Nochmalige Ausführung
--> Berichtsfilter aller Pivots für die "Week" ist 7

Makro 2:
- Berichtsfilter aller Pivots für die "Week" ist 9
--> Ausführung des Makros
--> Berichtsfilter aller Pivots für die "Week" ist 10
--> Nochmalige Ausführung
--> Berichtsfilter aller Pivots für die "Week" ist 11

usw.

Danke schon einmal.

Beste Grüße
Tom

:)

 

Moin Tom,

und ich hätte gern ein Makro zur Erstellung von Mustermappen ...

Also

1. Was hast du
2. Mustermappe
3. bereits VON DIR angeregte / angedachte Codezeilen

Grüße

 

Moin Jack,

okay okay verstanden *wink.gif*

Ich habe bisher nur eine Variante, die den Berichtsfilter auf einen festgelegten Wert anpasst. Der Code funktioniert aber auch noch nicht.

Code:

 

Moin

ich glaube der Teufel steckt im Detail,..

Ich glaub so könnte es gehen

Code:

Grüße

 

Danke für den Tipp.

Es scheint ein Problem mit dieser Zeile zu geben:

Code:

"Typen unverträglich"

 

Moin,

Ohne das jetzt zu testen bzw testen zu können, musste es nicht heißen

For each ws in ActiveWorkbook.worksheets
With Ws
For each pt in .pivottables
Bla bla
Next pt
End with
Next ws



Grüße

 

Moin Moin Jack,

das funktioniert! Besten Dank.
Ich brauche ja jetzt noch die variable Komponente, anstatt eines festen Wertes für den Berichtsfilter anzugeben.

Folgend meine Idee. Ich bin mir nicht sicher, wie man den aktuellen Wert des Berichtsfilters definiert. So scheint es nicht zu klappen.

Code:

 

Moin Tom

vorab ... ich bin begeistert das mein Code den ich gestern mal schnell am handy geschrieben hab funzt *grins *grins

Dann zu deiner Frage

Code:

Wenn du bisschen nachdenkst wirst du feststellen das dass irgendwie bullshit ist.

Du sagst dem Code HIer nimm "PX+1" und zwar als Zeichenfolge /String
Das kann natürlich nicht funktionieren . Da du in deinem Filter sicher keinen Wert "PX+1" hast .. oder? *tongue.gif*

Das Problem ist deine initiale Fragestellung ...
Mehrmaliges Ausführen des Codes soll zu verschiedenen Ergebnissen kommen ´-- schwierige Kiste
Du musst beispielsweise einen Parameter in die Mappe schreiben und verändern.

Nur mal so als Arbeitsthese
1. Du öffnest die Mappe
2. ParameterFeld ist leer
3. Makro startet mit Wert A und verändert das ParameterFeld zB in A
4. ParameterFeld hat Wert A
5. Makro Startet - Makro weiss: Ahh jetzt Wert B (Weil ParameterFeld)
6. und nun? Parameter löschen? Wert C? Wert A? Wert B?
7. gleiche Frage beim schliessen der Mappe (Wert behalten oder löschen?)
8. alternativ beim öffnen der Mappe ..

Was imho das sinnvollste ist:
Bastel dir eine Userform von der du das Makro starten willst. Dort eine einfache ListBox zum Auswählen des Parameters - ferdsch -- kein Hexenwerk aber effizient

Um deine Frage aber noch zu beantworten

Wenn du einen Wert "hochzählen" willst
ist
Code:

bzw.
Code:

Die Lösung

Grüße

 

Hi Jack,

ja das ging ganz wunderbar *Smilie

Ich habe dann jetzt die einfachste Lösung gewählt und hole mir den Wert für die Berichtsfelder aus einer festen Zelle in der Tabelle. Das macht auch wirklich Sinn, da die Woche dort der Übersicht halber so und so angezeigt werden muss.

Dank dir.

Viele Grüße
Tom

Code:

 

Danke für die Rückmeldung:-)