Filtrere i pivottabel

Ja - via en Userform, hvor start- & slutdag indtastes. Denne kode anvendes så til automatisk ændring af filter.

lyder godt at det kan laves, har du evt. lidt eksempel kode på hvordan og hvad hvis der bliver udvidet med datoer.?

Datoer indtastes - men man kunne supplere med at vise første og sidste dato i userformen - såfremt datoer liggeri stigende orden.

jeg har datoer liggende i stigende orden, men hvordan fungerer det så hvis man f.eks. kun vil se Jan+Feb+Marts f.eks. ??

Det primære er følgende:

ActiveSheet.PivotTables("Pivottabel1").PivotFields("Dato").PivotFilters.Add _
            Type:=xlDateBetween, Value1:=fraDato, Value2:=tilDato

jeg forstod ikke helt hvor du ville hen, men jeg fandt denne løsning som kan bruges.

Public Sub Filter()
    Application.ScreenUpdating = True
   
    Dim StartDate As Date, EndDate As Date

    StartDate = ActiveSheet.Range("E2").Value
    EndDate = ActiveSheet.Range("E3").Value
   
        If StartDate = 0 Then
        StartDate = "01/01/2011"
    End If
    If EndDate = 0 Then
        EndDate = Now()
    End If
   
    Dim pt As PivotTable
    Dim pf As PivotField
    Dim pi As PivotItem
   
    For Each pt In ActiveSheet.PivotTables
       
        pt.PivotFields("Oprettet d.").ClearAllFilters
        Set pf = pt.PivotFields("Oprettet d.")
        For Each pi In pf.PivotItems
                If Not pi.Name = "(blank)" Then
                If pi.Value < StartDate Or pi.Value>EndDate          Then
                    pi.Visible = False
                Else
                    pi.Visible = True
                End If
            End If

        Next pi
    Next pt
   
    Application.ScreenUpdating = True
End Sub

Fint nok..