Hoe een draaitabel filteren op basis van een specifieke celwaarde in Excel?

Het filteren van gegevens in een draaitabel wordt meestal gedaan door items te selecteren uit een keuzelijst. Er kunnen echter situaties zijn waarin u wilt dat de draaitabel dynamisch filtert op basis van de waarde in een specifieke cel. Deze handleiding biedt een eenvoudige VBA-oplossing om dit proces te automatiseren, waardoor het gemakkelijker wordt om uw gegevens efficiënt te beheren en te analyseren.

Draaitabel filteren op basis van een specifieke celwaarde met VBA-code

Draaitabel filteren op basis van een specifieke celwaarde met VBA-code

De volgende VBA-code kan u helpen om een draaitabel dynamisch te filteren op basis van een specifieke celwaarde in Excel. Volg de onderstaande stappen.

1. Voer een waarde in waarop u de draaitabel wilt filteren in een cel van tevoren (hier selecteer ik cel H6).

2. Open het werkblad dat de draaitabel bevat die u wilt filteren op basis van een celwaarde. Klik vervolgens met de rechtermuisknop op het tabblad van het blad en selecteer Weergave Code in het contextmenu. Zie screenshot:

3. Plak in het venster Microsoft Visual Basic for Applications dat wordt geopend, de onderstaande VBA-code in het Code-venster.

VBA-code: Draaitabel filteren op basis van celwaarde

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
    Dim xPTable As PivotTable
    Dim xPFile As PivotField
    Dim xStr As String
    On Error Resume Next
    If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
    Set xPFile = xPTable.PivotFields("Category")
    xStr = Target.Text
    xPFile.ClearAllFilters
    xPFile.CurrentPage = xStr
    Application.ScreenUpdating = True
End Sub

Opmerkingen: In de code,

4. Druk op de toetsen Alt + Q om het venster Microsoft Visual Basic for Applications te sluiten.

De draaitabel zal nu dynamisch filteren op basis van de waarde in cel H6, zoals te zien is in de onderstaande schermafbeelding:

U kunt de celwaarde bijwerken om indien nodig een ander filter toe te passen.

Opmerking: De waarden die u in cel H6 typt, moeten exact overeenkomen met de waarden in de keuzelijst Categorie van de draaitabel.

Gerelateerde artikelen:

• Hoe meerdere werkbladen combineren in een draaitabel in Excel?
• Hoe een draaitabel maken vanuit een tekstbestand in Excel?
• Hoe een draaitabelfilter koppelen aan een specifieke cel in Excel?