TEST VBA: manual filter of a slicer is set

%3CLINGO-SUB%20id%3D%22lingo-sub-2964899%22%20slang%3D%22de-DE%22%3ETEST%20VBA%3A%20manual%20filter%20of%20a%20slicer%20is%20set%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2964899%22%20slang%3D%22de-DE%22%3E%3CP%3EHi%20everyone%20...%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIs%20there%20a%20smart%20way%20to%20%3CSTRONG%3E%3CFONT%20color%3D%22%230000FF%22%3Etest%20by%20vba%20%3C%2FFONT%3E%3C%2FSTRONG%3Eif%20the%20%3CSTRONG%3E%3CFONT%20color%3D%22%230000FF%22%3Emanual%20filter%20of%20a%20slicer%20(pivot%20table)%20is%20set%3C%2FFONT%3E%3C%2FSTRONG%3E%3CSTRONG%3E%3CFONT%20color%3D%22%230000FF%22%3E%3F%3C%2FFONT%3E%3C%2FSTRONG%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EE.g.%20I%20can%20clear%20the%20manual%20filter%20by%20vba%2C%20but%20I%20didn't%20find%20a%20way%20to%20simply%20test%20if%20it's%20set%20%3CLI-EMOJI%20id%3D%22lia_disappointed-face%22%20title%3D%22%3Adisappointed_face%3A%22%3E%3C%2FLI-EMOJI%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThe%20following%20picture%20of%20a%20slicer%20demonstrates%20my%20problem%3A%3C%2FP%3E%3CP%3E-%20the%20manual%20filter%20of%20the%20slice%20is%20set%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20image-alt%3D%22slicer.jpg%22%20style%3D%22width%3A%20175px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F327027i16F53941AE176959%2Fimage-size%2Flarge%3Fv%3Dv2%26amp%3Bpx%3D999%22%20role%3D%22button%22%20title%3D%22slicer.jpg%22%20alt%3D%22slicer.jpg%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3CP%3EThanks%20in%20advance!!!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EGreetings%20Christoph%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%20class%3D%22lia-indent-padding-left-30px%22%3E%3CFONT%20color%3D%22%230000FF%22%3ESet%20oSc%20%3D%20ActiveWorkbook.SlicerCaches(SlicerName)%3C%2FFONT%3E%3CBR%20%2F%3E%3CFONT%20color%3D%22%230000FF%22%3EWith%20oSc%3C%2FFONT%3E%3CBR%20%2F%3E%3CFONT%20color%3D%22%230000FF%22%3E%20%3CSTRONG%3E%20.%26nbsp%3B%20%26nbsp%3BClearManualFilter%3C%2FSTRONG%3E%3C%2FFONT%3E%3C%2FP%3E%3CP%3E%3CFONT%20color%3D%22%230000FF%22%3Eend%20with%3C%2FFONT%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2964899%22%20slang%3D%22de-DE%22%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E
Frequent Visitor

Hi everyone ...

 

Is there a smart way to test by vba if the manual filter of a slicer (pivot table) is set?

 

E.g. I can clear the manual filter by vba, but I didn't find a way to simply test if it's set

 

The following picture of a slicer demonstrates my problem: 

- the manual filter of the slice is set

slicer.jpg

Thanks in advance!!!

 

Greetings Christoph

 

Set oSc = ActiveWorkbook.SlicerCaches(SlicerName)
With oSc
   .ClearManualFilter

       end with

0 Replies