PivotItem in VBA meldet ein Element, das nicht existiert

Question

Ich habe einen VBA-Code, der eine PivotTable durch Ändern des PivotFilters (wie unten) druckt.

Mein Problem ist, dass nach dem Drucken der letzten PivotItem (PivF = 27) der "PivI.Name" zu "999", die nicht in meinem Arbeitsblatt und in der PivotTable vorhanden ist. Das Makro meldet also eine Fehlermeldung "Runtime Error 5".

Interessanterweise funktioniert der gleiche Code in einem anderen Arbeitsblatt in der gleichen Datei einwandfrei ohne Fehler!

Kann mir bitte jemand helfen?

Private Sub CommandButton3_Click() 
Dim pivF As PivotField 
Dim pivI As PivotItem 

Set pivF = ActiveSheet.PivotTables("Tourenplan").PivotFields("Tour") 

Application.ScreenUpdating = False 

For Each pivI In pivF.PivotItems 
    pivF.CurrentPage = pivI.Name 
    ActiveWindow.SelectedSheets.PrintOut 
Next pivI 

Application.ScreenUpdating = True 
End Sub 

Mit so danke,
Dio

Answer 1

Ich hatte gerade das gleiche Problem gestern ...

Scheck in den Pivot Table options (rechts auf dem Tisch klicken), in Data tab, sollten Sie finden Retain items deleted from the data source, wählen Sie None für Number of items to retain per field, dann aktualisieren.

Wenn es nicht funktioniert hat, ändern Sie die Einstellungen (alle Einstellungen auf dem Data tab), speichern, schließen, wieder öffnen, überprüfen Sie noch einmal die gleichen Optionen und setzen Number of items to retain per field-None.