macro verversen draaitabel

[ruva]

Beste excelliefhebbers,

Wie kan mij helpen???

Het volgende: ik heb een sheet met een aantal tabbladen, In het tabblad "macro" bevindt zich de button.

De data in het tabblad "vlootlijst" wordt regelmatig vervangen. layout is dan exact hetzelfde.
Van de vlootlijst heb ik een draaitabel gemaakt, deze bevindt zich in het tabblad "machine per categorie" van deze draaitabel heb ik een grafiek gemaakt deze bevindt zich in het tabblad "vlootoverzicht".
Nu wil ik een macro die het mogelijk maakt de draaitabel te verversen, Dit wil mij maar niet lukken.

Voor details zie bijlage

groeten van Ruva

 

[Wigi]

Zie bvb. http://www.techonthenet.com/excel/macros/refresh_pt.php

 

[RaymondC]

Bron
http://www.ozgrid.com/VBA/pivot-table-refresh.htm

Refresh single pivot table:

Sub PivotMacro()

Dim pt As PivotTable



    Set pt = ActiveSheet.PivotTables("MyPivot")

    pt.RefreshTable

End Sub

Refresh all Pivot Tables:

Sub AllWorksheetPivots()

Dim pt As PivotTable



    For Each pt In ActiveSheet.PivotTables

        pt.RefreshTable

    Next pt

    

End Sub

 

[ruva]

Bedankt voor de reacties,
alles werkt nu goed

ik zet hem op opgelost

gr> Ruva