Szia,

 

Átjött, nézem. Addig is, hátha valaki másnak is okozott már problémát:

Ha egy pivot tábla (kimutatásvarázsló) mögötti adattartomány változik, egyes esetekben megmaradnak a tételek (items) nevei holott már nincs is az adatbázisban az adott elem. Ez különösen programozásnál jelenthet gondot, pl. az adatbázisban most csak 20 féle adat van, de korábban 500 volt, akkor továbbra is olyan mintha 500 elem lenne elérhető a pivot táblából.

 

Ez a te esetedben így törölhető, ha a pivot tábla az aktív munkalapon van, neve Kimutatás1 és a Cikkszám: mező elemeit kell megregulázni:

 

Sub delOldItems()

 

Dim pItem As Object

Application.ScreenUpdating = False
For Each pItem In ActiveSheet.PivotTables("Kimutatás1").PivotFields("Cikkszám:").PivotItems
        On Error Resume Next
        pItem.Delete
        On Error GoTo 0
   
Next
 
End Sub