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 angeharkt - 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
End Sub
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
|