Vorhandensein eines PivotItems abfragen

[Thomas Wawersig]

Hallo,
ich versuche via VBA das Vorhandensein eines PivotItems abzufragen.
Wenn das Item da ist, klappt das auch gut, nur wenn es nicht vorhanden
ist, kommt ein Laufzeitfehler (1004) mit der Nachricht:
PivotItems-Eigenschaft des PivotField-Objektes kann nicht zugeordnet
werden. Mein Coding sieht so aus:
sub blabla()
I = 1
Do
If ActiveSheet.PivotTables("PivotTable1").PivotFields("Lohnart").PivotItems(I).Value
= "(Leer)" Then
MsgBox (ActiveSheet.PivotTables("PivotTable1").PivotFields("Lohnart").PivotItems(I).Value)
On Error GoTo raus (was er natürlich nie macht, denn
er hat das Item ja gefunden, wenn nein->Laufzeitfehler)
'hier will ich das Item jetzt ausblenden, was auch klappt, wenn es da
ist
With ActiveSheet.PivotTables("PivotTable1").PivotFields("Lohnart")
.PivotItems("(Leer)").Visible = False
End With
End If
I = I + 1

Grüsse,
Thomas Wawersig
If I > 10 Then
Exit Do
End If
Loop
raus:
end sub

[Dr. Eckehard Pfeifer]

Hallo, das On Error steht zu spaet? Denn der Fehler tritt eine Zeile eher
auf? Also: On error an den Anfang der Proz und dann im errh die
entsprechende Reaktion.

--
Mit freundlichen Grüßen
Eckehard Pfeifer

www.dr-e-pfeifer.de
Ein Blick lohnt sich immer: www.vba-magazin.de