Bij voorbaat dank,
Jos
In Excelversie 2007 is een optie PivotCache.MissingItemsLimit beschikbaar is
in het draaitabel opties
dialoogvenster (Tabelopties?). Ik kan dat niet controleren, maar je zou dat
daar op Geen o.i.d. moeten kunnen instellen per draaitabel dus.
In oudere versies zou dat met onderstaande code moeten lukken voor elke
draaitabel in het
workbook.
Zet de code in de module van ThisWorkbook en voer de code uit.
Sub VerwijderOudeGegevens()
Dim pvt As PivotTable
Dim pvtC As PivotCache
For Each pvtC In Me.PivotCaches
With pvtC
.MissingItemsLimit = xlMissingItemsNone
.Refresh
End With
Next
'volgende gedeelte weglaten als je missingitemslimit op
'Geen wilt laten voor elke draaitabel
For Each pvtC In Me.PivotCaches
With pvtC
.MissingItemsLimit = xlMissingItemsDefault
End With
Next
End Sub
Jan