Avatar billede Line Juniormester
05. november 2018 - 13:01 Der er 2 kommentarer og
1 løsning

VBA kode; Samme filtre på flere pivottabeller

Jeg har et ark i excel med 4 pivottabeller (forskellige datakilder). Jeg vil gerne have alle fire tabeller til at indstille filter til celle A1.

Jeg har sat denne kode ind:

__________________________________________________

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

Dim pt As PivotTable
Set pt = Worksheets("Fravær spec").PivotTables("Pivottabel2")

pt.ClearAllFilters
pt.PivotFields("personnummer").PivotFilters.Add Type:=xlCaptionContains, Value1:=Range("A1").Text

End Sub
__________________________________________________

Koden fungerer fint på en enkelt pivot tabel. Kan jeg ændre/tilrette den så den dækker flere pivot tabeller?
05. november 2018 - 13:15 #1
Du kunne prøve med

Dim pt As PivotTable
for each pt in  Worksheets("Fravær spec").PivotTables
  pt.ClearAllFilters
  pt.PivotFields("personnummer").PivotFilters.Add Type:=xlCaptionContains, V
alue1:=Range("A1").Text
next
Avatar billede Line Juniormester
05. november 2018 - 13:24 #2
Hej Thor,

Helt perfekt :-)

Tak for hjælpen!

Mvh Line
05. november 2018 - 13:24 #3
Det var så lidt :)
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester