ich würde gerne prüfen, ob ein PivotItem existiert.
Ich habe folgendes gefunden, bekomme jedoch ein Laufzeitfehler 438 "Objekt unterstützt die Eigenschaft oder Methode nicht"
Sub Filnr_Test()
Dim i
With Sheets("Übersicht").PivotTables("PivotTable1").PivotFields("Filiale")
Debug.Print .PivotItems.Count
For i = 1 To .PivotItems.Count
If .PivotItem(i).Name = "23" Then 'hier kommt die Fehlermeldung
MsgBox ("Existiert")
Exit Sub
End If
Next i
End With
End Sub
Zufällig noch jemand wach, der weiß wo es klemmt?
Gruß
Tim