Fejl i filtrering i Pivottabel via VBA
Hej,Jeg vil gerne lave en VBA-kode i excel, hvor man i celle B3 skal skrive en afdeling, hvorefter 7 pivottabeller derefter automatisk skal opdatere deres rapportfilter ved at vælge denne afdeling i filtreringen.
Koden er sat op og virker næsten. Mit eneste problem er, at man kan vælge en afdeling i B3, der ikke findes i rapportfilteret i nogle af pivoterne. Hvis denne afdeling ikke findes, er det meningen, den blot skal vælge "(tom)". Hvordan sætter jeg dette op?
Min kodning er således, om end jeg ved den er gal. Jeg skal bare kunne få den til at søge rapportfilteret igennem for at finde et match CC. Hvis ikke den er der, skal den vælge "(tom)".
Public Sub Worksheet_Change(ByVal target As Range)
Dim PFDirOpr As PivotField
Dim CC As String
If Not Intersect(target, Range("B3")) Is Nothing Then
Set PFDirOpr = Worksheets("8b. Viderefakturering").pivottables("Dir_opr").PivotFields("afdeling")
CC = Range("B3")
If PFDirOpr.CurrentPage <> CC Then
PFDirOpr.CurrentPage = "(tom)"
Else: PFDirOpr.CurrentPage = CC
End If
'de næste 6 pivottabeller kommer herunder efter samme princip...
End If
End Sub
Mvh
Henrik