Pivot Slicer steuern
08.02.2013 18:59:48
Gerd
ich habe Probleme mit den Slicern von Pivotttabellen. Ich möchte einfach nur ein Item selektieren. Eigentlich ganz einfach und geht blitzschnell an der Oberfläche.
Der aufgezeichnete Code sieht so aus:
With ActiveWorkbook.SlicerCaches("Datenschnitt_F1")
.SlicerItems("Au").Selected = True
.SlicerItems("CE").Selected = False
.SlicerItems("CIK").Selected = False
.SlicerItems("CK").Selected = False
.
.
.
.
.
.
.SlicerItems("ZKM").Selected = False
.SlicerItems("ZOBI").Selected = False
.SlicerItems("ZPRA").Selected = False
.SlicerItems("ZR").Selected = False
.SlicerItems("rad").Selected = False
.SlicerItems("(Leer)").Selected = False
End With
Er markiert also jedes andere Item als inaktiv. Falls man dann aber diese Code auführen lässt, dauert es ewig, da nach jedem "False" die Pivottabelle aktualisiert wird.
Ich suche verzweifelt nach einem Weg für "Deselect all" oder einem Weg die Liste ohne Neuberechnung zu durchlaufen.
Bin für alle Ideen dankbar,
Gerd
-