Draaitabellen vernieuwen gaat fout

[Juser100]

Ik heb een excel bestand met meerdere draaitabellen. Om ze niet telkens handmatig één voor één te hoeven vernieuwen gebruik ik onderstaande code.
Nu heb ik één tabblad verwijdert uit het bestand omdat deze overbodig is geworden. Na het heropenen van het excel bestand komt nu bij het uitvoeren van de code de foutmelding "Fout 1004: Kan het bronbestand [map1.xls]Blad3 voor de draaitabel niet openen." Hoe verhelp ik deze foutmelding?

Dim I, X As Integer
For I = 1 To Sheets.Count
If Sheets(I).PivotTables.Count > 0 Then
For X = 1 To Sheets(I).PivotTables.Count
Sheets(I).PivotTables(X).PivotCache.Refresh
Next X
End If
Next I

 

[Niels28]

werk dit?

Sub VernieuwAlles()
    ActiveWorkbook.RefreshAll
End Sub

Niels

 

[WimenBeer]

Niels,

Je kan ook 'Automatisch vernieuwen bij openen' optie bij de draaitabel aanzetten.

Dan wordt iedere keer dat je het bestand opent de draaitabel(len) vernieuwd.

Wellicht helpt dat

Wim

 

[Juser100]

@Niels: Ja, is vele malen beter ook nog! Dank!

 

[Niels28]

Dag Wim,

Ik ben de vragensteller niet.

En die optie werkt alleen bij het openen, als je de macro achter een tabbladevent hangt kun je hem laten verversen als je het tabblad selecteert.

Niels

 

[WimenBeer]

Dag Wim,

Ik ben de vragensteller niet.

Niels

Niels,
Sorry, maar samen komen we er toch weer uit.

Groet

Wim