in einem VBA-Projekt wird eine Pivottabelle erstellt. Dabei sollen die Items, die leer sind ausgefiltert werden. Ich habe dazu diese Zeilen geschrieben:
With ActiveSheet.PivotTables("PT01").PivotFields("Feld02")
If .PivotItems("(blank)").Visible = True Then
.PivotItems("(blank)").Visible = False
End If
End With
Bei der If-Frage kommt immer der Fehler: Typen unverträglich (Laufzeitfehler 13). Wenn ich ohne if-Frage
.PivotItems("(blank)").Visible = False
schreibe, dann wird dies ohne Fehlermeldung ausgeführt. Die Abfrage ist aber deshalb notwendig, weil es Fälle gibt, in denen keine leeren Items vorhanden sind. In diesen Fällen gibt es ebenfalls eine Fehlermeldung.
Weiß jemand dazu einen Rat?
Danke im voraus
geolino