Hallo zusammen,
über einen Button möchte ich das der Filter von einer Pivot Tabelle auf "alle" gesetzt wird und alle "leeren Felder" ausgeblendet werden = im Filter nicht angehakt - funktioniert einwandfrei.
ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum").ClearAllFilters
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum")
.PivotItems("(Blank)").Visible = False
End With
Nun das Problem: Ich möchte über einen zweiten Button den Filter von einer Pivot Tabelle leeren, d.h. das keine Position mehr angeharkt ist und anschließend nur "blank"= die leeren Felder anharken. Im Netz bin ich immer wieder auf folgende Lösung gestoßen, aber diese funktioniert nicht:
Dim pi As PivotItem
ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum").ClearAllFilters
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Datum")
For Each pi In .PivotItems
If pi.Name "(blank)" Then
pi.Visible = False
End If
Next
End With
Laufzeitfehler ´1004' Die Visible-Eigenschaft des PivotItem-Objekts kann nicht festgelegt werden. Ich wäre euch sehr dankbar wenn Ihr den Knoten in meinem Hirn lösen könntet!