ClearManualFilter - Typen unverträglich
03.12.2018 09:04:33
Robert
ich komme leider nicht weiter und hoffe es kann mir jemand bei meinem Problem helfen.
Ich habe 3 Datenschnitte und möchte, wenn der erste Datenschnitt zurückgesetzt wird, das auch automatisch die anderen beiden Datenschnitte zurück gesetzt werden.
Dazu wollte ich folgenden Code verwenden:
Sub DatenschnittLeer()
If ActiveWorkbook.SlicerCaches("Datenschnitt_Monat1").ClearManualFilter Then
.SlicerCaches("Datenschnitt_Monat2").ClearManualFilter
.SlicerCaches("Datenschnitt_Monat").ClearManualFilter
End Sub
Google habe ich befragt und bin auch fündig geworden:
Dim oSlicerC As SlicerCache
For Each oSlicerC In ActiveWorkbook.SlicerCaches
If oSlicerC.FilterCleared = False Then oSlicerC.ClearManualFilter
Next oSlicerC
Dieser Code funktioniert zwar, setzt jedoch alle Datenschnitte der gesamten Arbeitsmappe zurück. Eine Anpassung mit "ActiveSheet" funktioniert auch nicht.