Makro läuft nicht trotz Makrorekorder
15.10.2020 17:48:27
Andrea
ich möchte per VBA eine Pivottabelle filtern, und zwar sollen zunächst alle Filter gelöscht werden und dann nacheinander aber aufeinander aufbauend einige Werte abgewählt werden. Dazu habe ich für das Makro den Beschriftungsfilter gewählt, da der Makrorecorder das "Dem Filter die aktuelle Auswahl hinzufügen" wegen der Masse der Einträge nicht aufzeichnen kann. Zum einen sollen alle Werte, die "default" enthalten abgewählt werden, danach alle, die mit "NN " beginnen:
Sheets("RA-Einn.").PivotTables("PivotTable2").PivotFields( _
"[Mitarbeiter].[Mitarbeiter].[Mitarbeiter]").ClearAllFilters
Sheets("RA-Einn.").PivotTables("PivotTable2").PivotFields( _
"[Mitarbeiter].[Mitarbeiter].[Mitarbeiter]").PivotFilters.Add Type:= _
xlCaptionDoesNotContain, Value1:="default"
Sheets("RA-Einn.").PivotTables("PivotTable2").PivotFields( _
"[Mitarbeiter].[Mitarbeiter].[Mitarbeiter]").PivotFilters.Add Type:= _
xlCaptionDoesNotBeginWith, Value1:="NN "
Leider bricht das Makro beim dritten Schritt ab, da schon ein Beschriftungsfilter ausgewählt ist.
Hat einer einen Tipp, wie ich trotzdem zum gewünschten Ziel komme?
Vielen Dank für eure Hilfe.
VG Andrea