Automatisch Pivot Table laten updaten

[Michiel Karel]

Hallo,

Wanneer ik mijn excel bestand via een knop in Access open, wordt keurig de lijst met data op blad1 (in excel) vernieuwd.

Echter de draaitabel in blad 2 wordt hiermee niet vernieuwd. Terwijl die gebaseerd is op de gegevens van blad 1.

Hoe kan ik er voor zorgen dat dit werkt?

Een macro opnemen werkt tot nu toe nog niet

 

[Wigi]

Vertrek van

Sheets("Bladnaam").PivotTables("naamvandedraaitabel").PivotCache.Refresh

en pas aan.

 

[Michiel Karel]

Dit is het geworden.
Het punt waar ik bleeft hangen was

"Sheets("Blad2").Select

Ik heb zelf toch even een macrotje opgenomen, en die werkt nu..

Private Sub Workbook_Open()
Application.DisplayAlerts = False
Range("B2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False
Sheets("Blad2").Select
Range("C5").Select
ActiveSheet.PivotTables("Draaitabel1").PivotCache.Refresh
Application.DisplayAlerts = True
End Sub