Pivotfilter per VBA setzen

[DieMarie]

Guten Mittag die Herren,

ich habe eine Pivottabelle mit einem Filter auf einen Eurowert. 
Der Filter umfasst ungefähr 300 Werte. 

Ich brauche den Filter aber nur um die leeren Zellen auszublenden. 


Per VBA bekomme ich es mit dem Makrorecorder nicht hin folgendes zu tun:

1. Step: Alle Werte im Filter anzeigen lassen
2. Step: die leeren Zellen deselektieren / ausblenden. 


Selbst wenn ich 

Code:

ActiveSheet.PivotTables("PivotTable9").PivotFields("Wert in EUR").CurrentPage = "(All)"

ausführe wählt er keine Werte aus, die neu hinzugekommen sind. 

Und die leeren Werte ausschließen funktioniert auch nicht. 

Code:

.PivotItems("").Visible = False

Das läuft nur in einen Fehler.

[DieMarie]

Hat sich erledigt. 
Wenn man ein Mal alle Möglichkeiten anwählt und die Leeren abwählt passt er den Filter automatisch an.