Office: IF Formel in VBA für Pivot Table

Hallo zusammen,

ich habe folgendes Problem beim Zusammenspiel von einer Pivot Table mit VBA: Meine auszuwertenden Daten (verschiedene Projekte) sind heterogen, sodass in manchen Fällen (Projekten) manche Kostenarten enthalten sind und in anderen nicht. Die VBA Formel, die sich auf diese "optionalen" Kostenarten bezieht, funktioniert demnach nicht, wenn die Kostenart X, auf die sich die Formel bezieht, gar nicht enthalten ist.
Konkret stellen meine VBAs immer eine bestimmte äußere Form der Pivot her, in der bestimmte Kostenarten ein- bzw. ausgeblendet sind.
Die optionalen Kostenarten sind auch nicht eine bestimmte Gruppe, sondern beliebig: in manchen Projekten gibt es die Kostenarten A, B, C, D, E und F, in anderen A, C, F, in anderen B, C, F, in anderen C, D, E usw. Außerdem brauche ich nicht nur die Schnittmenge (also Kostenarten, die in allen Projekten enthalten sind), sondern ich benötige z.B. Kostenart D in der Pivot, wenn sie in den Daten vorhanden ist, wenn nicht, dann nicht.
Das würde ich gerne mit einer IF Formel innerhalb VBA lösen, kenne mich damit aber nicht aus. Kann mir jemand helfen? Oder hat jemand einen alternativen Lösungsvorschlag?
Vielen Dank im Voraus!

 

z.B. With ActiveSheet.PivotTables("PivotTable1").PivotFields("KostenartenBez")
.PivotItems("[KostenartA]").Visible = False

Wenn es die Kostenart A in dem Projekt nicht gibt, läuft die Formal auf Fehler.

Meine Vorstellung wäre sowas in die Richtung:
With ActiveSheet.PivotTables("PivotTable1").PivotFields("KostenartenBez")
IF .PivotItems("[KostenartA]").THEN Visible = False