Pivotfilter zurücksetzen (alle Hacken entfernen)
13.03.2014 08:51:51
Nik
ich möchte in diversen Pivottabellen mittels Variable in den Spaltenbeschriftungen jeweils den Monat setzen lassen:
Sub Pivotsetting()
Application.ScreenUpdating = False
Dim a As String
Dim b As String
Dim c As String
a = Worksheets("Controll").Range("A1").Value
b = Worksheets("Controll").Range("A2").Value
c = Worksheets("Controll").Range("A3").Value
ActiveSheet.PivotTables("PivotTable2").PivotFields("Auswertungsmonat").ClearAllFilters
With Worksheets("Ubersicht nach Co-Brands").PivotTables("PivotTable2").PivotFields(" _
Auswertungsmonat")
.PivotItems(a).Visible = True
.PivotItems(b).Visible = True
.PivotItems(c).Visible = True
End With
Application.ScreenUpdating = True
End Sub
Er macht auch etwas, aber von der vorherigen Filterung sind noch die alten Filter gesetzt. Eigentlich dachte ich das ich mit
ActiveSheet.PivotTables("PivotTable2").PivotFields("Auswertungsmonat").ClearAllFilters
das Problem löse, aber das macht genau das Gegenteil. Ich möchte zuerst im Filter alle Hacken entfernen und dann die Hacken mit den Variablen setzen. Ich habe auch einiges gelesen hier, aber das war eher genau andersherum.
Hat jemand eine Idee wie ich das Problem löse? Sprich das mir jedesmal nur die Filter gesetzt werden die durch die Variablen vorgegeben sind?
Danke und Gruss
Nik
Anzeige