Macro voor verversen draaitabellen

[Timmiesch]

De onderstaande code gebruik ik voor het verversen van mijn draaitabellen.

Sub AllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
    
        For Each pt In ws.PivotTables
                    pt.RefreshTable
        Next pt
        
    Next ws
    
End Sub

Echter nu moet ik telkens deze macro laten lopen alvorens alle draaitabellen worden ververst.


Is het mogelijk om een code te bouwen waarmee ik bij elke invoer in het bestand(maakt niet uit waar) de draaitabellen worden ververst?

 

[Roncancio]

Hallo,

Als het niet uitmaakt waar in het bestand je macro wordt aangeroepen dat is onderstaande code een optie:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
AllWorkbookPivots
End Sub

Als er iets gewijzigd wordt in je bestand (op welk werkblad dan ook), dan wordt de macro gestart.

Met vriendelijke groet,


Roncancio

 

[Timmiesch]

Als ik deze code invoer en ik vul ergens op het bestand iets in geeft VBA de volgende foutmelding:

Compileerfout:

Sub of Function is niet gefefineerd

Wat houd dit in/wat doe ik verkeerd/hoe moet ik dit oplossen?

 

[Roncancio]

Als ik deze code invoer en ik vul ergens op het bestand iets in geeft VBA de volgende foutmelding:

Compileerfout:

Sub of Function is niet gefefineerd

Wat houd dit in/wat doe ik verkeerd/hoe moet ik dit oplossen?

Ik neem aan dat de code

Sub AllWorkbookPivots()
Dim pt As PivotTable
Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
    
        For Each pt In ws.PivotTables
                    pt.RefreshTable
        Next pt
        
    Next ws
    
End Sub

al in het bestand staat.
Bij mij werkt het eea prima namelijk.

Met vriendelijke groet,


Roncancio

 

[Timmiesch]

Onderstaande is het bestand waar ik mee bezig was.
Hij werkt niet, wat doe ik fout?