Hey Leute,
um unnötige Arbeitsschritte auszumerzen, möchte ich dass mein Code nur diejenigen Slicer berührt, die einen Filter haben und diesen dann löschen.
Mein Code:
Sub clearWorksheetSlicers()
Dim item As SlicerItem
With ActiveWorkbook.SlicerCaches("Name")
If .SlicerItems(item).Selected = True Then
ActiveWorkbook.SlicerCaches("Name").ClearManualFilter
Else
msgbox "No Filter", vbOKOnly
End If
End With
End Sub
Fehler: Laufzeitfehler 1004
Hoffe ihr könnt mir helfen und besten Dank vorab.
Gruß
VBAamateur |