Filtrering af dato i Pivottabel driller

Det er sikkert noget med amerikansk vs europæisk datoformat. Et trick kan være at sætte B1 og B2 som variable der skal være date og så styre det via "DDMMYYYY" f.eks.

Hej Kim1a,

Tror du har helt ret i, at det skyldes amerikansk / europæisk datoformat. Kan du beskrive mere præcist hvad det er jeg skal gøre?

PFT

Sådan lidt utestet:

Sub FilterByDate()

Dim startdato, slutdato as date

If Range("B1").Value = "" Then
MsgBox ("Please Enter a Valid Start Date")
Exit Sub
End If

startdato = range("B1")

If Range("B2").Value = "" Then
MsgBox ("Please Enter a Valid End Date")
Exit Sub
End If

slutdato = range("B2)

With ActiveSheet.PivotTables("Pivottabel4").PivotFields( _
        "[Header].[Date].[Date]")
.ClearAllFilters
.PivotFilters.Add Type:=xlDateBetween, Value1:=format(startdato,"ddmmyyyy", Value2:=format(slutdato,"ddmmyyyy")
End With

End Sub

Så kan du lege lidt rundt med hvordan formatet skal være for at den sorterer korrekt vil jeg tro.

I mine amatørprogrammør-øjne er det altid nemmere at bruge variable hvor der indsættes værdi fra input (celle, inputbox etc), fremfor at tage direkte fra cellen i koden - både fordi du kan styre hvordan input forventes at se ud (integer, double, long, date etc), men også fordi det ofte er med til at gør koden nemmere at tilgå/læse.

Tak Kim1a,

Det virker perfekt :-)