Draaitabel Filteren o.b.v. Celwaarde

Status
Niet open voor verdere reacties.
R

raoulduivestein

Gebruiker
Lid geworden
7 aug 2012
Berichten
115
Goedemiddag,

Ik loop tegen het volgende aan, ik probeer een draaitabel te filteren o.b.v. een celwaarde maar dit lukt mij niet.
Ik heb op https://www.extendoffice.com/documents/excel/5325-excel-pivot-table-filter-based-on-cell-value.html een VBA script gevonden. Dit script heb ik proberen aan te passen naar mijn bestand maar ik kom er niet uit.

Op het werkblad 'Pivot' heb ik een draaitabel met de filter Week, op het moment dat ik de cel A1 op het werkblad 'Filter' wil ik dat automatisch te filter op het werkblad 'Pivot' wordt aangepast, wie kan mij hiermee op weg helpen? :)

Groetjes,
Raoul

Bekijk bijlage VB-Helpmij.xlsx
 
Er staat geen VBA in een .xlsx. Mogelijk werkt het daarom niet.
 
Je hebt de code op een verkeerde plek staan. Deze hoort niet thuis in de module van Thisworkbook maar in de module van het blad 'filter'

Als alternatief in de module van het blad 'Pivot'
Code: 
Private Sub Worksheet_Activate()
  With PivotTables("Draaitabel1")
    .ClearAllFilters
    On Error Resume Next
    For Each it In .PivotFields("Week").PivotItems
      it.Visible = it.Value = Sheets("Filter").Cells(1).Value
    Next it
  End With
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan