Office: Set slicer filter by Range.Value & slicer.item.name as variable & walk trough sheets

Hallo, schon mal vielen Dank im Voraus für eure Ideen:

Es geht um folgenden Sachverhalt:

Ein Excel-File mit mehreren Tabs.
In jedem Tab ist eine Pivot.
Die Pivots haben nicht die gleiche Datenquelle, aber besitzen alle das Daten-Feld "Profit Center".
Somit besitzt jede Pivot den Datenschnitt Profit Center. Allerdings immer mit unterschiedlichem Quellnamen.

Ziel:
Der User bedient ein Drop Down Feld und alle Datenschnitte im gesamten Workbook werden gefiltert.

In einem Tab kein Problem und auch Change.Event etc. sind nicht das Problem, aber wie setze ich den slicer item name als Variable und lasse den Code in jedem Tab ausführen.

Bisher haben wir folgenden Code:

Sub test()
Dim a As Integer
a = 1
While a

:)

 

Ok sorry das mit dem Durchlaufen der Sheets hätte ich nicht fragen müssen... hier der veränderte Code:

Sub datenschnittefiltern()
Dim WS_Count As Integer
Dim I As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
Dim a As Integer
On Error Resume Next
For I = 1 To WS_Count
a = 1
While a

 

Hi, habe aus meiner Sicht eine sehr saubere und simple Lösung gefunden.

Hoffe ich kann damit vielen Leuten helfen, die ein File mit mehreren Tabs, Pivots und Datenschnitten filtern wollen.

Nehmt eine ComboBox und ordnet die Werte zu, die auch in den Datenschnitten sind (bei mir Profit Center). Ich löse das über eine Datenverbindung die sich automatisch updated in der nur die relevanten Profit Center gezogen werden. Nun ordnet die Box noch die verlinkte Zelle zu. (Bei mir Tabelle5.Range("i2"))
Kopiert diese Box in alle Tabs.
Dann den folgenden Code unter "DieseArbeitsmappe" einfügen:

Public Sub Filter()

Dim a As Integer
Dim oSlicerC As SlicerCache

On Error Resume Next

For Each oSlicerC In ActiveWorkbook.SlicerCaches
oSlicerC.ClearManualFilter
Next oSlicerC

For Each oSlicerC In ActiveWorkbook.SlicerCaches
oSlicerC.ClearManualFilter
a = 1
While a

 

Lad eine Bsp-Datei hoch. Der Code alleine bringts nicht.

 

Sehr gerne... viel Spaß damit!

 

Code:

 

Super, vielen Dank! Sehr schöne Lösung *Smilie

Ich hoffe das hilft einigen Usern bei ihren Problemlösungen weiter.

Auf jeden Fall hat sich so mein "Endlos-Code" von vor 2 Jahren nun auf ein paar wenige Zeilen reduziert *Smilie

Danke und VG