KutoolsforOffice — Eén oplossing, vijf krachtige tools.Meer bereiken met minder moeite.

Hoe koppelt u het draaitabelfilter aan een specifieke cel in Excel?

AuteurSiluvia Wijzigingsdatum

In Excel wilt u vaak interactieve rapporten maken waarbij het filter van uw draaitabel de waarde in een specifieke cel weerspiegelt. Zo kunnen gebruikers op één plek eenvoudig een filterwaarde selecteren of invoeren, waarna de draaitabel automatisch en dynamisch wordt bijgewerkt op basis van die invoer. Deze methode is vooral handig bij het ontwerpen van dashboards of interfaces voor het instellen van filtervoorwaarden tijdens gegevensverkenning.

Dit artikel biedt diverse praktische oplossingen – waaronder een VBA-aanpak en andere ingebouwde Excel-methoden – om een draaitabelfilter te koppelen aan een celwaarde of vergelijkbare dynamische rapportage-effecten te realiseren.


Koppel het Draaitabel-filter aan een bepaalde cel met VBA-code

Als u een directe koppeling nodig heeft tussen een cel en een Draaitabel-filter—zodat het wijzigen van de celwaarde het filter automatisch bijwerkt—biedt VBA een eenvoudige en effectieve oplossing. Deze aanpak is ideaal voor interactieve dashboards of rapporten waarin gebruikers gegevenssegmenten snel en gemakkelijk vanuit één cel willen beheren.

Opdat deze techniek werkt, moet uw draaitabel een filterveld bevatten. De naam van dat filterveld is essentieel voor het juist instellen van de VBA-code.

Bekijk het volgende voorbeeld: de draaitabel heeft een filterveld met de naam Categorie, met twee filterwaarden: „Uitgaven” en „Verkoop”. Door een cel te koppelen aan het draaitabelfilter, beheert u de weergegeven gegevens door in uw gekozen cel „Uitgaven” of „Verkoop” in te voeren.

koppel het draaitabelfilter aan een bepaalde cel

Om dit uit te voeren:

  • Selecteer de cel die u als filtercontroller wilt gebruiken (bijvoorbeeld cel H6) en voer daarvan tevoren één van uw filterwaarden in. Zorg ervoor dat deze waarde exact overeenkomt met de waarden die beschikbaar zijn in het draaitabel-filterveld.
  • Ga naar het werkblad met uw draaitabel. Klik met de rechtermuisknop op het bladtabblad en kies Code weergeven in het menu. Hiermee opent u het venster Visual Basic for Applications.

Klik met de rechtermuisknop op het werkbladtabblad en selecteer Code weergeven

Plak in het venster Microsoft Visual Basic for Applications de volgende VBA-code in het codevenster.

VBA-code: koppel het Draaitabel-filter aan een bepaalde cel

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")) 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:

1)Sheet1is de naam van het werkblad. Pas deze aan indien nodig.
2)PivotTable2is de naam van de Draaitabel. Pas deze aan op basis van uw daadwerkelijke tabel.
3) „Category” is het veld dat wordt gefilterd. Zorg ervoor dat de spelling overeenkomt met het veld in uw tabel.
4)H6is de referentiecel die aan het filter is gekoppeld. U kunt het celadres naar behoefte wijzigen. Zorg ervoor dat de cel altijd een geldige filterwaarde bevat die voorkomt in uw dataset.

Druk na het plakken van de code op Alt + Q om het VBA-editorvenster te sluiten en terug te keren naar Excel.

Nu wordt de filterstatus van uw Draaitabel beheerd door de inhoud van cel H6. Door de waarde in cel H6 te wijzigen (in „Verkoop” of „Uitgaven”) wordt de weergave van het Draaitabel direct bijgewerkt. Als u problemen ondervindt, controleer dan of de celwaarde exact overeenkomt met een filterwaarde in het Draaitabel en of de namen in uw code correct zijn toegewezen.

Vernieuw de cel, waarna de overeenkomstige gegevens worden gefilterd op basis van de bestaande waarde

Telkens wanneer u de celinhoud wijzigt, vernieuwt de draaitabel automatisch de gefilterde gegevens.

Wanneer de celwaarde wordt gewijzigd, worden de gefilterde gegevens in de draaitabel automatisch aangepast.

Tips en probleemoplossing: als de filterveldwaarde in de cel niet exact overeenkomt met de beschikbare items – inclusief hoofdletters en spaties – wordt het filter mogelijk niet toegepast zoals verwacht. Controleer altijd of uw veld- en tabelnamen in de VBA-code correct zijn gespeld. Wilt u deze configuratie gebruiken voor meerdere draaitabellen? Pas de code dan verder aan of breid hem uit met lussen.

een schermafbeelding van kutools for excel ai

Ontgrendel de magie van Excel met KUTOOLS AI

  • Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
  • aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
  • VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
  • Formule-uitleg: Begrijp complexe formules moeiteloos.
  • Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Breid uw Excel-mogelijkheden uit met AI-gestuurde tools.Download nuen ervaar efficiëntie zoals nooit tevoren!

Excel-formule – Combineer formules (zoals GETPIVOTDATA) met verwijzingen naar slicers of rapportfilters

Hoewel Excel geen zuiver native formulemethode biedt om het filter van een draaitabel direct aan een cel te koppelen, kunt u dynamische rapportage realiseren en relevante waarden weergeven met formules zoals GETPIVOTDATA in combinatie met slicers of rapportfilters. Deze oplossing is ideaal voor het bouwen van dashboards waarin samenvattingswaarden automatisch worden bijgewerkt op basis van een filterselectie of invoer in een andere cel—waardoor data-analyse interactiever wordt.

Toepasselijke scenario’s zijn dynamische rapportpanelen, dashboards of vergelijkende samenvattingen waarin u wilt dat het weergegeven resultaat meeverandert met slicerselecties of gegevens toont die gerelateerd zijn aan de inhoud van een cel. Het belangrijkste voordeel is dat deze methode uitstekend werkt voor het tonen van actuele samenvattingsgegevens. De daadwerkelijke filterstatus van de draaitabel kan echter niet uitsluitend via een celformule programmatisch worden ingesteld.

Voorbeeld: weergave van Draaitabel-samenvatting op basis van een celwaarde

Stel dat u een draaitabel hebt die de verkoop samenvat per Categorie (bijv. „Verkoop”, „Uitgaven”). U kunt GETPIVOTDATA gebruiken om de relevante waarde op te halen voor een categorie die in een cel is opgegeven.

1. Stel dat cel H6 de categorie bevat die u wilt weergeven (bijvoorbeeld „Verkoop”). Plaats de volgende formule in uw samenvattingscel (bijvoorbeeld I6):

=GETPIVOTDATA("Sum of Amount",$B$4,"Category",H6)

2. Nadat u de formule in I6 hebt ingevoerd, drukt u op Enter. Telkens wanneer u H6 wijzigt in een geldige categorie (zoals ‘Uitgaven’ of ‘Verkoop’), wordt I6 direct bijgewerkt met het totaal voor die categorie op basis van de huidige draaitabel.

Opmerkingen:
  • Het eerste argument „Sum of Amount” moet u vervangen door de daadwerkelijke naam van het waardenveld in uw draaitabel (bijvoorbeeld „Total Sales” of het label dat uw waarden daadwerkelijk gebruiken). Evenzo dient u $B$4 te vervangen door de verwijzing naar een specifieke cel binnen uw draaitabel — Excel herkent deze verwijzing automatisch en koppelt deze aan de juiste draaitabel, zodat de functie GETPIVOTDATA correct werkt.
  • Klik op een cel in uw draaitabel om de exacte syntaxis van GETPIVOTDATA te verkrijgen en verwijzen naar een waarde—Excel genereert automatisch de juiste formule. Zorg ervoor dat H6 overeenkomt met één van de beschikbare categorieën in de tabel voor nauwkeurige resultaten.

Tip: hoewel deze methode het filter binnen de Draaitabel zelf niet wijzigt, geeft deze effectief resultaatgegevens weer alsof deze zijn gefilterd op basis van de cel, waardoor een dynamische weergave ontstaat die is gekoppeld aan uw doelcelinvoer. U kunt deze methode ook gebruiken om grafieken, samenvattende tabellen of dashboards aan te sturen.

Probleemoplossing: als de formule een foutmelding #VERW! of #WAARDE! retourneert, controleer dan of uw celverwijzingen correct zijn, of de categorie 'Voer' bestaat in uw draaitabel en of de veld- of somnaam exact overeenkomt.


Andere ingebouwde Excel-methoden – Koppel Draaitabel-slicers en dashboards voor interactief filteren

De Slicer- en Rapportfilterhulpmiddelen van Excel bieden gebruiksvriendelijke, ingebouwde opties voor interactief filteren — zonder dat u VBA-code hoeft te schrijven. Met deze methoden creëert u eenvoudig een dashboard-achtig effect, waarbij meerdere draaitabellen of weergaven worden gekoppeld aan één of meer slicers.

Een veelgebruikte aanpak is het invoegen van een Slicer die is gekoppeld aan uw Draaitabel-veld (bijv. „Categorie”). Gebruikers klikken eenvoudigweg op de gewenste items in de slicer, waarna de Draaitabel(s) automatisch worden bijgewerkt. Als u meerdere draaitabellen hebt op basis van hetzelfde bronbereik, kunt u één slicer aan alle tabellen koppelen voor gesynchroniseerd filteren—zodat uw rapportage-interface intuïtiever en consistenter wordt.

Om een slicer te maken en te koppelen:

  • Klik in uw draaitabel en ga naar PivotTable Analyseren(of het tabblad)Opties, afhankelijk van uw Excel-versie) > Slicer invoegen.
  • Schakel het gewenste veld in (bijv.)Categorie) en klik op OK. De slicer verschijnt op het werkblad en stelt gebruikers in staat om visueel te filteren.
  • Klik met de rechtermuisknop op de slicer om één slicer aan meerdere draaitabellen te koppelen, kies Rapportverbindingen(of)PivotTable-verbindingen) en schakel alle draaitabellen in die u wilt synchroniseren.
    Dit is bijzonder krachtig voor dashboardscenario’s waarin verschillende visualisaties gezamenlijk reageren op gebruikersfilters.

Voordelen: zeer eenvoudig te gebruiken voor de meeste interactieve filterbehoeften en vereist geen macro’s of aangepaste code. Ideaal voor dashboards of gedeelde rapporten waar eenvoud en betrouwbaarheid cruciaal zijn. De beperking is dat absolute automatisering van cel-naar-filter (cel-naar-filterkoppeling) niet standaard wordt ondersteund—directe toewijzing van waarde-naar-filter vereist VBA of externe hulpmiddelen.

Probleemoplossing: als een slicer geen verbinding maakt met meerdere draaitabellen, controleer dan of alle tabellen zijn gebaseerd op dezelfde cache of hetzelfde bronbereik. De optie Rapportverbindingen verschijnt alleen wanneer de tabellen compatibel zijn.

Samenvattingsadvies: Kies de optimale methode voor het koppelen van Draaitabel-filters aan celwaarden of het bouwen van interactieve dashboards op basis van uw gewenste automatiseringsniveau, de beperkingen van uw Excel-versie en of VBA/macros zijn toegestaan in uw omgeving. Voor eenvoudige behoeften leveren slicers en formules (zoals GETPIVOTDATA) snel robuuste resultaten. Voor geavanceerde automatisering biedt een VBA-oplossing meer controle. Zorg er altijd voor dat veldnamen en filteritems consistent worden gebruikt voor nauwkeurige resultaten. Mocht u fouten tegenkomen, controleer dan de ingevoerde celwaarden en verifieer dat alle namen exact overeenkomen tussen code, formules en de dataset.


Gerelateerde artikelen:

Beste Office-productiviteitshulpmiddelen

🤖KUTOOLS AI Assistant: Revolutioneer Data-analyse op basis van:Intelligente uitvoering   |  Genereer code|  Maak aangepaste formules  |  Analyseer gegevens en genereer grafieken|  Roep Verbeterde functies aan
Populaire functies:Zoeken, markeren of Dubbele waarden markeren   |  Verwijder lege rijen   |  Kolommen samenvoegen of cellen zonder gegevensverlies   |   Afronden zonder formule...
Super ZOEKEN:VLookup met meerdere criteria  |  VLookup met meerdere waarden  |   VLookup over meerdere werkbladen   |   Fuzzy Match....
Geavanceerde keuzelijst:Snel een keuzelijst maken   |  Afhankelijke keuzelijst   |  Keuzelijst met meervoudige selectie....
Kolombeheerder:Voeg een specifiek aantal kolommen toe|Verplaats kolommen|Wissel zichtbaarheidsstatus van verborgen kolommen|Vergelijk bereiken en kolommen...
Uitgelichte functies:Rasterfocus   |  Ontwerpweergave   |Verbeterde formulebalk   | Werkmap- en bladbeheerder   |  Bronnenbibliotheek(Automatische tekst)|  Datumkiezer   |  Werkbladen samenvoegen  |  Versleutelen/Cellen decoderen   | E-mails verzenden op basis van lijst   |  Superfilter   |   Speciaal filter(Filter cellen met vetgedrukt lettertype/cursief/doorgestreept...) ...
Top 15 gereedschapssets:12 Teksthulpmiddelen(Tekst toevoegen,Specifieke tekens verwijderen, ...)|   50+Grafiektypen(Gantt-diagram, ...)|   40+ Praktische formules(Leeftijd berekenen op basis van geboortedatum, ...)|   19 Invoeghulpmiddelen(QR-code Invoegen,Afbeelding invoegen vanaf pad, ...)|   12 Conversiehulpmiddelen(Omzetten naar woorden,Wisselkoersconversie, ...)|   7 Samenvoegen en splitsenhulpmiddelen(Geavanceerd samenvoegen van rijen,Cellen splitsen, ...)|... en meer
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en 40+ andere talen!

Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...


Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger

  • Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
  • Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!

Alle Kutools-add-ins in één installatieprogramma.

Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.

ExcelWordOutlookTabsPowerPoint
  • Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
  • Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
  • Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
  • 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
  • Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins