Hoe een draaitabel automatisch vernieuwen in Excel?

Normaal gesproken, wanneer we de brongegevens van een draaitabel bijwerken, wordt de draaitabel niet bijgewerkt totdat we handmatig Analyseren > Vernieuwen klikken. Dit kan nogal vervelend zijn als de draaitabel zich in een ander werkblad bevindt en je het misschien vergeet te vernieuwen. In dit artikel introduceren we een VBA om een draaitabel automatisch te vernieuwen in Excel.

Een draaitabel automatisch vernieuwen met VBA

Een draaitabel automatisch vernieuwen met VBA

Volg onderstaande stappen om de VBA toe te passen voor het automatisch vernieuwen van de opgegeven draaitabel in Excel.

1In de tabbladenbalk, klik met de rechtermuisknop op het tabblad dat de brongegevens bevat en selecteer Bekijk Code in het contextmenu. Zie screenshot:

2. Plak de code in het venster Microsoft Visual Basic for Applications dat wordt geopend.

VBA: Automatisch de opgegeven draaitabel vernieuwen

Private Sub Worksheet_Change(ByVal Target As Range)
 Worksheets("sheet name").PivotTables("PivotTable name").PivotCache.Refresh
 End Sub

Opmerkingen:
(1) In de code van Worksheets("naam van het werkblad").PivotTables("Draaitabel-naam").PivotCache.Refresh, vervang naam van het werkblad door de naam van het werkblad dat de opgegeven draaitabel bevat, en vervang Draaitabel-naam door de naam van de opgegeven draaitabel.
(2) Selecteer een willekeurige cel in de opgegeven draaitabel, dan krijg je de naam ervan te zien op het tabblad Analyseren (of het tabblad Opties ). Zie screenshot:

3. Sla de code op.

Vanaf nu zal, wanneer je de gegevens in de brongegevens wijzigt, de opgegeven draaitabel automatisch worden vernieuwd.

Gerelateerde artikelen:

Hoe per dag/maand/kwartaal/uur gemiddelden berekenen met een draaitabel in Excel?