filteren op pivottables kolom geeft foutmelding: Eigenschap PivotItems van klasse Piv

[Mac1976]

onderstaande geeft foutmelding:

With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Taak")
.PivotItems("").Visible = False
End With


ik weet hoe het komt. Er zijn namelijk geen cellen in de kolom "Taak" in het gegevensbereik met lege cellen ("").
maar wat programmeer ik voor of na de code zodat ik de volgende foutmelding niet meer krijg:

Fout 1004 tijdens uitvoering: Eigenschap PivotItems van klasse PivotField kan niet worden opgehaald.

 

[HSV]

Hallo Mac1976,

Normaal kan je zoiets afvangen met:

on error resume next
...........jouw coderegels hier.......
on error goto 0 'nul

Maar waarom laat je die code lopen als je toch geen items kunt verbergen.

 

[Mac1976]

HSV.
De gebruiker van het document kan verschillende input data plakken afkomstig vanuit een ERP applicatie. Dit heb ik als maker/ beheerder niet in de hand.

Ik ga je oplossing proberen.

 

[HSV]

Misschien is dit ook een optie.

[I]With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Taak")
  [/I] if .pivotitems.count > 0 then [I].PivotItems("").Visible = False
End With[/I]