Hoe een draaitabel te vernieuwen wanneer de gegevens in Excel veranderen?

Zoals u weet, als u de gegevens in de originele tabel wijzigt, wordt de bijbehorende draaitabel niet tegelijkertijd bijgewerkt. Als u de draaitabel wilt vernieuwen wanneer de gegevens in de tabel in Excel veranderen, kan ik u enkele snelle manieren laten zien.

Vernieuw een draaitabel in een werkblad door op Vernieuwen te drukken

Vernieuw een draaitabel in een werkblad of werkboek met VBA

Vernieuw een draaitabel in een werkblad door op Vernieuwen te drukken

In Excel is er een functie Vernieuwen en Alles Vernieuwen om de draaitabel in een enkel werkblad te vernieuwen.

Klik op een draaitabel die u wilt vernieuwen en klik vervolgens op Opties (in Excel 2013, klik op ANALYZE) > Vernieuwen > Vernieuwen. Zie screenshot:

Als u alle draaitabellen in een enkel werkblad wilt vernieuwen, kunt u Alles Vernieuwen selecteren.

Vernieuw een draaitabel in een werkblad of werkboek met VBA

Met VBA kunt u niet alleen alle draaitabellen in een enkel werkblad vernieuwen, maar ook alle draaitabellen in het hele werkboek.

1. Druk tegelijkertijd op de toetsen F11 + Alt op het toetsenbord om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik vervolgens op Invoegen > Module om een nieuw modulevenster in te voegen. Kopieer vervolgens de volgende VBA-code naar het venster.

VBA: Vernieuw draaitabellen in een werkblad.

Sub AllWorksheetPivots()
'Updateby20140724
Dim xTable As PivotTable
For Each xTable In Application.ActiveSheet.PivotTables
    xTable.RefreshTable
Next
End Sub

3. Klik op de knop Uitvoeren in het venster of op de F5-toets om de VBA uit te voeren, waarna de draaitabellen in een werkblad worden vernieuwd.

Tip: Om alle draaitabellen in een heel werkboek te vernieuwen, kunt u de volgende VBA gebruiken.

VBA: Vernieuw alle draaitabellen in een werkboek.

Sub RefreshAllPivotTables()
'Updateby20140724
Dim xWs As Worksheet
Dim xTable As PivotTable
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xTable In xWs.PivotTables
        xTable.RefreshTable
    Next
Next
End Sub

Gerelateerde artikelen:

• Vernieuw draaitabel bij het openen van bestand in Excel
• Update het gegevensbereik van de draaitabel in Excel