Macro VerbergNullen

[Chocka]

Vanuit Accountview krijg ik een draaitabel in excel van alle grootboekgegevens (kruisposten) en probeer met deze macro alle nul waarden eruit te filteren

Via dit forum heb ik eens deze macro gekregen om alle nul waarden uit een draaitabel te filteren.

Sub VerbergNullen()
'***************************************************************'
'let op : zorg dat de begincel van je draaitabel juist is !!!!! '
'***************************************************************'

Dim Draaitabel As PivotTable, c As Range, it As PivotItem

Set Draaitabel = Sheets("Blad2").Range("A4").PivotTable 'de begincel van je draaitabel goed vastleggen
Draaitabel.PivotCache.Refresh 'draaitabel vernieuwen

With Draaitabel.PivotFields("Omschrijving")
For Each it In .PivotItems 'loop alle items van Omschrijving af
.PivotItems(it.Name).Visible = True 'eerst zichtbaar maken
Set c = Draaitabel.GetPivotData("Totaal", "Omschrijving", it.Name) 'zoek bereik van gegevensitem op
.PivotItems(it.Name).Visible = (c.Value <> 0) 'alleen zichtbaar als <>0
Next
End With
End Sub

Maar wat ik ook doe, ik blijf een foutmelding 1004 krijgen???

 

[robdgr]

Ik krijg de melding "kan het bronbestand voor de draaitabel niet openen", dus kennelijk is er iets zoek.

 

[popipipo]

"kan het bronbestand voor de draaitabel niet openen"

Het bron bestand staat op blad1
Als ik dit aanpas krijg ik geen foutmelding en alle nullen worden weggefilterd ,

 

[Chocka]

Het bron bestand staat op blad1
Als ik dit aanpas krijg ik geen foutmelding en alle nullen worden weggefilterd ,

Dan heb ik ergens een fout gemaakt, maar dan blijft mijn vraag hoe/waar pas ik dan zo'n bronbestand aan, zodat de foutmelding dan niet meer komt?

 

[popipipo]

In tabblad van draaitabel staat ergens "verversen draaitabel" en "verander bronbestand"
Benaming en plaats is afhankelijk van Excel versie.

 

[Chocka]

Ik heb het anders gedaan, maar zonder resultaat

1. Ik heb een nieuwe draaitabel aangemaakt
2. Ik heb een nieuwe macro aangemaakt, waarvan bovenstaande macro (tekst) gekopieerd heb.
3. Vervolgens heb ik volgende regels daarin aangepast, zodat deze overeenkomt met de gegevens die ik zichtbaar heb in de draaitabel.

"Set Draaitabel = Sheets("Blad2").Range("A4").PivotTable" van Blad2 heb ik de naam gemaakt zoals het tabbald heet waar de Draaitabel staat en ook zo heet, dus:

Set Draaitabel = Sheets("Draaitabel").Range("A4").PivotTable

With Draaitabel.PivotFields("Omschrijving")
Set c = Draaitabel.GetPivotData("Totaal", "Omschrijving", it.Name)

Overal waar "omschrijving" heb ik veranderd voor de veldnaam welke in de draaitabel heb gebruikt, welke bij mij "Doc_fac" heet.

4. En vervolgens de macro laten uitvoeren.

5. Krijg dan melding:"Fout 1004 tijdens uitvoering"

Als ik dan foutopsporing aankies, staat deze regel GEEL zichtbaar in VB met een geel pijltje ervoor???

Set c = Draaitabel.GetPivotData("Totaal", "Doc_fac", it.Name) 'zoek bereik van gegevensitem op

Sorry, maar ik snap er niets van?