Macro filteren op datum in een draaitabel vanuit celwaarde

[DEY]

Hallo,

Graag uw hulp gevraagd voor het volgende.

Zie voorbeeld bestand.

Met een macro filteren in een draaitabel.
Hierin wil ik alle data verkrijgen die voor een datum (celwaarde H6) liggen.

Alvast bedankt

 

[Cobbe]

Rechtsklikken in de draaitabel op een datum en kiezen voor filter - datumfilter?

 

[DEY]

Allereerst bedankt voor je reactie.

Omdat ik verschillende draaitabellen heb wil ik deze met een macro laten uitvoeren.

Dus mijn vraag is, hoe doe ik dat?

Dey

 

[edmoor]

Neem bij het uitvoeren van die actie eens een macro op.

 

[DEY]

Bij deze een macro opgenomen.
Zie bijlage:

 

[VenA]

Even zonder foutafhandeling. Een Dt moet minimaal 1 zichtbare rij hebben anders krijg je een foutmelding.

Sub VenA()
With ActiveSheet
    For Each it In .PivotTables("Draaitabel1").PivotFields("Geb. datum").PivotItems
        it.Visible = CDate(it.Value) < .[h6]
    Next it
End With
End Sub

 

[Cobbe]

Zo moet het toch te doen zijn:

Sub Draaitabelfilter()
    ActiveSheet.PivotTables("Draaitabel1").PivotFields("Geb. datum").ClearAllFilters
    ActiveSheet.PivotTables("Draaitabel1").PivotFields("Geb. datum").PivotFilters. _
        Add Type:=xlBefore, Value1:=Range("H6")
End Sub

 

[VenA]

@Cobbe,

En dat voor iemand de 'altijd' zegt niets van draaitabellen te weten:d De xlbefore als filter zal sneller zijn dan de items af te lopen. De code heb ik even aangepast omdat ik een foutmelding kreeg over het datum format. Tevens jouw 'oeps' er ingezet voor het geval er geen gegevens gevonden kunnen worden.

Sub Cobbe_VenA()
On Error GoTo oeps
With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Geb. datum")
    .ClearAllFilters
    .PivotFilters.Add xlBefore, , Format(Range("H6"), "d/m/yyyy")
End With
Exit Sub
oeps: MsgBox "geen waarde gevonden"
End Sub

 

[Cobbe]

Daar zit toch véél Trial and error in hoor.

 

[VenA]

Het zal aan mij liggen maar ik begrijp jouw reactie niet.

 

[Cobbe]

Ik zal het anders zeggen:
Het heeft mij zeer véél Trial and error gekost om daartoe te komen.

 

[DEY]

Allen,

Heel erg bedankt voor jullie hulp.

Zeer dankbaar.

Groetjes,

Dey