VBA - Pivot Filter zurücksetzen - mit Ausnahme
17.12.2018 12:33:14
Robert
ich finde leider nirgends eine Lösung für mein kleines VBA-Problem.
Ich möchte für nur ein einziges Arbeitsheet alle Pivot-Filter zurücksetzen. Dies funktioniert soweit auch reibungslos mit unten stehendem Code.
Problem: Allerdings möchte ich, das bestimmte Pivot-Filter nicht zurückgesetzt werden (quasi als Ausnahme). Z.B. soll der "Datenschnitt_Buchungsperiode" weiterhin auf das aktuell ausgewählte Datum gefiltert bleiben!
Kann jemand bitte den nachfolgenden Code für mich so anpassen, dass bspw. für den Datenschnitt "Datenschnitt_Buchungsperiode" der Filter nicht aufgehoben wird?
Private Sub Workbook_Open()
Sheets("FILTER").Select
Dim slcr As SlicerCache
Dim slc As Slicer
For Each slcr In ActiveWorkbook.SlicerCaches
For Each slc In slcr.Slicers
If slc.Shape.Parent Is ActiveSheet Then
If slcr.FilterCleared = False Then
slcr.ClearManualFilter
Exit For
End If
End If
Next slc
Next slcr
End Sub
Gruß, Robert