unable, um die Eigenschaft visible der Pivotitem-Klasse zu erhalten

Ich habe zwei Codesätze. Aus irgendeinem Grund in der Erstens bekomme ich eine Fehlermeldung, und in der Zweitens tue ich nicht. 1: Dim pi As PivotItem Dim pf As PivotField Set pf = Sheets("Afname ...