Hallo zusammen,
ich nutze folgenden Code:
Sheets("Pivot 2018").Activate
ActiveSheet.PivotTables("PivotTable1").PivotFields("Werk ").PivotFilters.Add2 _
Type:=xlCaptionEquals, Value1:=varFilterwert
Sheets("Pivot 2018").Activate
ActiveSheet.PivotTables("PivotTable1").PivotFields("Profit Center").PivotFilters.Add2 _
Type:=xlCaptionEquals, Value1:=varFilterwert2
Sheets("Pivot 2019").Activate
ActiveSheet.PivotTables("PivotTable1").PivotFields("Werk").PivotFilters.Add2 _
Type:=xlCaptionEquals, Value1:=varFilterwert
Sheets("Pivot 2019").Activate
ActiveSheet.PivotTables("PivotTable1").PivotFields("Profit Center").PivotFilters.Add2 _
Type:=xlCaptionEquals, Value1:=varFilterwert2
Sheets("Pivot 2020").Activate
ActiveSheet.PivotTables("PivotTable1").PivotFields("Werk").PivotFilters.Add2 _
Type:=xlCaptionEquals, Value1:=varFilterwert
Sheets("Pivot 2020").Activate
ActiveSheet.PivotTables("PivotTable1").PivotFields("Profit Center").PivotFilters.Add2 _
Type:=xlCaptionEquals, Value1:=varFilterwert2
Der Code funktioniert auch einwandfrei für das Jahr 2018 und 2020.
Bei 2019 jedoch bekomme ich die Fehlermeldung "anwendungs- oder objektorientierter Fehler".
Ich kann mir das Ganze leider nicht erklären, da ich vom Prinzip her ja dreimal den gleichen Befehl ausführe.
Kann mir da jemand helfen?
Mit freundlichen Grüßen
Niklas