Microsoft Excel

Herbers Excel/VBA-Archiv

Laufzeitfehler

Betrifft: Laufzeitfehler von: Niklas
Geschrieben am: 07.08.2020 12:27:44

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

Betrifft: AW: Laufzeitfehler
von: Oberschlumpf
Geschrieben am: 08.08.2020 06:56:59

Hi Niklas,

tja, wir sehen deine 2018,2019+2020 Tabellen nicht. Daher kann ich nur raten.
Ich rate, dass die Daten in deiner 2019 Tabelle anders eingetragen wurden, oder in bestimmten Zellen gar keine DAten enthalten, in denen aber Daten stehen müssen, weil dein Code sonst nicht funktioniert.

Ciao
Thorsten

Beiträge aus dem Excel-Forum zum Thema "Laufzeitfehler"