draaitabel filteren op een waarde in een cel

[Friend]

Beste Forummers,

Is het mogelijk om een draaitabel te filteren op een waarde die in een cel buiten de draaitabel staat.

In de bijlage een voorbeeld bestandje. De bedoeling zou zijn om de uitkomst van cel I3 van het werkblad "draaitabel" bepalend te laten zijn voor de filtering van de draaitabel.

Ja ik kan dit natuurlijk ook gewoon in de draaitabel kiezen of een slicer gebruiken. Alleen in mijn originele bestand is het belangrijk dat ik de naam opzoek in h2 en vervolgens het klantnummer krijg wat de draaitabel trickert.

Vraag mij af of het mogelijk is om op deze manier de draaitabel te sturen?

Friend

 

[cow18]

zal met een macro moeten gaan.
deze kijkt naar een verandering van H3, niet naar I3, dat ligt iets moeilijker.
H3 verander je zelf, dus een change_event.
I3 verandert door berekening, dus een calculate_event, maar die is niet echt selectief.

 

[Friend]

Beste Cow18,

Hartelijk dank voor je reactie:thumb:

Dat werkt heel mooi inderdaad op de naam. Super zelfs!

Mijn probleem is echter dat ik toch afhankelijk ben van het klantnr.

Als ik het goed begrijp gaat dat dus niet zo makkelijk als het op het klantnr moet.

Ik ben geen vba man. Voor mij is een calculate_event dus nog lastig.

Friend

 

[VenA]

Als je kan filteren op klantnaam dan is het toch niet zo heel moeilijk om het op klantnummer te doen. I3 krijgt toch een andere waarde als je iets wijzigt in H3?

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("H3")) Is Nothing Then
    naam = Range("[COLOR=#ff0000]I3[/COLOR]").Value
    With PivotTables("Draaitabel1")
      .ClearAllFilters
        If Len(naam) > 0 Then
          For Each it In .PivotFields("klantnr").PivotItems
            it.Visible = it.Name = [COLOR=#ff0000]CStr(naam)[/COLOR]
          Next it
        End If
    End With
  End If
End Sub

 

[Friend]

VenA,

Heel hartelijk dank voor je reactie:thumb:

Dit werkt super en is precies de oplossing die ik zoek.

Bijzonder veel dank. Voor jullie misschien niet moeilijk maar geloof mij voor mij toch wel lastig hoor.
Ook al probeer ik het elke keer te ontleden en te begrijpen.

Friend