excel 2007 - hente værdier i pivottabel

Hejsa

ActiveSheet.PivotTables("Navnpåpivot").PivotFields("filternavn").ClearAllFilters
    ActiveSheet.PivotTables("Navnpåpivot").PivotFields("Filternavn").CurrentPage = Range("K3").Value

Er det noget i den stil du søger?

Tak for svar, det er netop det jeg har prøvet,

Men så siger den application defined eller object defined error.

Håber I kan hjælpe?

Ingen der har en løsning på denne fejl?

Jeg kan ikke rigtig hjælpe konkret med baggrund i de informationer. Jeg kan ikke få mine tests til at fejle.

Det virker som om, der er noget andet i din struktur der driller - Jeg har selv arbejdet en del med at automatisere min pivotfiltreringer, og mindes godt, at jeg har fået en tilsvarende fejl. Det her er skud i blinde, men så vidt jeg huske, så var mit problem, at mine referencer lå i andre ark. Da jeg lagde mit "opslags range" i samme ark som pivot filtreringen, så forsvant fejlen. Forklaringen virker meget tynd, men det er et forsøg værdi.
Normalt kan der også godt ligge formler i "opslags Range", men prøv ellers at ligge dem som rene værdier vha. VBA.

Du må sådan set også gerne sende arket til mig, så skal jeg gerne se om jeg kan få det til at virke.

Fandt her løsningen som var lidt anderledes. Men tak for hjælpen, smid bare et svar til pointene

Public Sub test()

Dim sNavn As String

sNavn = Range("R1").Value


ActiveSheet.PivotTables("Pivottabel1").PivotFields( _
        "[Sælger].[Sælgernavn].[Sælgernavn]").ClearAllFilters
ActiveSheet.PivotTables("Pivottabel1").PivotFields( _
        "[Sælger].[Sælgernavn].[Sælgernavn]").CurrentPageName = _
        "[Sælger].[Sælgernavn].&[" & sNavn & "]"
       
End Sub

Okay - dog er du velkommen til selv at nappe point, jeg vil sådan set bare gerne hjælpe.

jean