Zählen von aktiven Filtern in Datenschnitten
29.12.2017 21:38:26
aktiven
ich möchte mit Hilfe einer Funktion oder VBA eine Überprüfung für aktive Filter von Datenschnitten starten. Ergebnis soll die Anzahl der aktiven angewendeten Filter der Datenschnitte sein.
Bsp.:
Datenschnitt1: 2 von 5 Filter sind ausgewählt
Datenschnitt2: 1 von 10 Filter sind ausgewählt
--> Ergebnis = 3 Filter sind ausgewählt
Ich habe mich dazu schon ein wenig schlau gemacht und ein Makro gefunden, das zumindest überprüft, wie viele Datenschnitte existieren:
Sub MultiplePivotSlicerCaches()
Dim oSlicer As Slicer
Dim oSlicercache As SlicerCache
Dim oPT As PivotTable
Dim oSh As Worksheet
For Each oSlicercache In ThisWorkbook.SlicerCaches
For Each oPT In oSlicercache.PivotTables
oPT.Parent.Activate
MsgBox oSlicercache.Name & "," & oPT.Parent.Name
Next
Next
End Sub
Jetzt möchte ich aber sehen, welche Filter der Datenschnitte ausgewählt sind und das möglichst in einer Zelle ausgeben.
Hoffe ihr könnt mir helfen und freue mich auf eure Antworten.
LG Marc