Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe de Pivot Table-filter koppelen aan een bepaalde cel in Excel?

Als u een draaitabelfilter aan een bepaalde cel wilt koppelen en de draaitabel wilt laten filteren op basis van de celwaarde, kan de methode in dit artikel u helpen.

Link draaitabel filter naar een bepaalde cel met VBA-code


Eenvoudig volledige rijen selecteren op basis van de celwaarde in een certian-kolom:

De Selecteer specifieke cellen nut van Kutools for Excel kan u helpen snel volledige rijen te selecteren op basis van de celwaarde in een certian-kolom in Excel, zoals onderstaand screenshot wordt getoond. Na het selecteren van alle rijen op basis van de celwaarde, kunt u deze handmatig verplaatsen of kopiëren naar een nieuwe locatie zoals u dat in Excel nodig hebt.

Kutools for Excel: met meer dan 200 handige Excel-add-ins, gratis om zonder beperking in 60-dagen te proberen. Download de gratis proefversie nu!

Tabblad Office Schakel bewerken en browsen met tabbladen in Office in en maak uw werk veel eenvoudiger ...
Kutools voor Excel brengt 300 geavanceerde functies naar Excel en verhoogt uw productiviteit met 80%
  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Kutools werkt met Office 2007-2019 en 365. Het ondersteunt alle talen en is zeer eenvoudig te installeren of te implementeren. Volledige functionaliteit 60-daagse gratis proefversie.

Link draaitabel filter naar een bepaalde cel met VBA-code

De draaitabel waarmee u de filterfunctie aan een celwaarde koppelt, moet een filterveld bevatten (de naam van het filterveld neemt een belangrijke plaats in in de volgende VBA-code).

Neem de onderstaande draaitabel als voorbeeld. Het filterveld in de draaitabel wordt opgeroepen Categorieen het bevat twee waarden "Kosten"En"To Koop”. Nadat u het draaitabelfilter aan een cel hebt gekoppeld, moeten de celwaarden die u op de filter draaitabel moet toepassen "Uitgaven" en "Verkoop" zijn.

1. Selecteer de cel (hier selecteer ik cel H6) die u koppelt aan de filterfunctie van de draaitabel en voer van tevoren een van de filterwaarden in de cel in.

2. Open het werkblad bevat de draaitabel die u naar de cel wilt linken. Klik met de rechtermuisknop op de bladtab en selecteer Bekijk code vanuit het contextmenu. Zie screenshot:

3. In de Microsoft Visual Basic voor toepassingen venster, kopieer onderstaande VBA-code naar het codevenster.

VBA-code: koppel het draaitabelfilter 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: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

Notes:

1) "Sheet1"Is de naam van het geopende werkblad.

2) "PivotTable2"Is de naam van de draaitabel waarmee u de filterfunctie aan een cel koppelt.

3) Het filterveld in de draaitabel wordt "Categorie".

4) De cel waarnaar wordt verwezen is H6. U kunt deze variabele waarden wijzigen op basis van uw behoeften.

4. druk de anders + Q toetsen om het te sluiten Microsoft Visual Basic voor toepassingen venster.

Nu is de filterfunctie van de draaitabel gekoppeld aan cel H6.

Ververs de cel H6 en de bijbehorende gegevens in de draaitabel worden gefilterd op basis van de bestaande waarde. Zie screenshot:

Wanneer de celwaarde wordt gewijzigd, worden de gefilterde gegevens in de draaitabel automatisch gewijzigd. Zie screenshot:

Office Tab - Browsen met tabbladen, bewerken en beheren van werkmappen in Excel:

Office-tabblad brengt de interface met tabbladen zoals te zien in webbrowsers zoals Google Chrome, nieuwe versies van Internet Explorer en Firefox naar Microsoft Excel. Het zal een tijdbesparende tool zijn en onherroepelijk in uw werk. Zie onderstaande demo:

Klik voor gratis proefversie van Office Tab!

Office-tabblad voor Excel


Gerelateerde artikelen:


Kutools voor Excel - De beste Office-productiviteitstool Verhoog uw productiviteit met 80%

  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905

Tabblad Office Brengt interface met tabbladen naar Office en maakt uw werk veel eenvoudiger

  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Gilmar Alves · 3 months ago
    Boa tarde...! Ótima publicação, como faço para utilizar o filtro em duas ou mais tabelas dinâmicas...? Agradeço desde já.

    Good afternoon...! Great publishing, how do I use the filter in two or more PivotTables ...? Thanks in advance.
  • To post as a guest, your comment is unpublished.
    Jeri · 4 months ago
    what if i have more than 1 pivot table and to link to 1 cell. How shld i amend the code?
  • To post as a guest, your comment is unpublished.
    Sara · 10 months ago
    What if the cell that is linked to the Pivot Table, in this case H6, is on another worksheet? How does it change the code?
  • To post as a guest, your comment is unpublished.
    Frank · 10 months ago
    how to do it on mul;tiple field since in code there is only one target