Skrive i celle, hvad der i pivot-tabel er valgt i rapportfiltrene

Det kræver lidt VBA

Sub ListPivotFilter()
    Dim PvtTbl As PivotTable
    Dim pvtItm As PivotItem
    Set PvtTbl = Worksheets("Pivot").PivotTables("PivotSalg")
    Dim ValgtListe As String
    For Each pvtItm In PvtTbl.PivotFields("Firma").PivotItems
        If pvtItm.Visible Then
            ValgtListe = ValgtListe & pvtItm & ", "
        End If
    Next
    If ValgtListe <> "" Then
        Range("A1").Value = Left(ValgtListe, Len(ValgtListe) - 2)
    End If
End Sub

Husk at erstatte med dine egne navne.

Man kan også sætte en hændelseskode op, så det sker automatisk

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim PvtTbl As PivotTable
    Dim pvtItm As PivotItem
    Set PvtTbl = Target
    Dim ValgtListe As String
    For Each pvtItm In PvtTbl.PivotFields("Firma").PivotItems
        If pvtItm.Visible Then
            ValgtListe = ValgtListe & pvtItm & ", "
        End If
    Next
    If ValgtListe <> "" Then
        Range("A1").Value = Left(ValgtListe, Len(ValgtListe) - 2)
    End If
End Sub

Jeg har lagt en fil til dig her
https://www.it-fjernundervisning.dk/info/eksperten-svar
så du kan se det køre

Det er perfekt løsning i forhold til den fil du har lagt...

Jeg får dog en type-mismatch fejl når jeg bruger det på mit ark?!
Den markerer gult på følgende linje (under debug)
If pvtItm.Visible Then

Kan du finde min fejl?
Min konvertering af koden blev som følger:


Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim PvtTbl As PivotTable
    Dim pvtItm As PivotItem
    Set PvtTbl = Target
    Dim ValgtListe As String
    For Each pvtItm In PvtTbl.PivotFields("ID og skabelonnavn").PivotItems
        If pvtItm.Visible Then
            ValgtListe = ValgtListe & pvtItm & ", "
        End If
    Next
    If ValgtListe <> "" Then
        Range("A7").Value = Left(ValgtListe, Len(ValgtListe) - 2)
    End If
End Sub

Kan du sende mig filen (evt. en der er renset for følsomme data)?
thor@it-fjernundervisning.dk

Det ser ud til, at der er en bug på dette område i Excel 2010 VBA.



ser ud til at køre.

OBS - man bør IKKE bruge On Error Resume Next!

Det virker i Excel 2010 - eneste lille detalje er, at alle søgninger starter med en gang at skrive:

#N/A... hvorefter den perfekt skriver det man har valgt.

Det er til at leve med, men kan man lave lille tilpasning så den forbliver væk?

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
    Dim PvtTbl As PivotTable
    Dim pvtItm As PivotItem
    Set PvtTbl = Target
    Dim ValgtListe As String
    Dim s As String
    On Error Resume Next
    For Each pvtItm In PvtTbl.PivotFields("ID og skabelonnavn").PivotItems
        If pvtItm.Visible Then
            ValgtListe = ValgtListe & pvtItm & ", "
        End If
    Next
  ValgtListe = Replace(ValgtListe, "#N/A", "")
    If ValgtListe <> "" Then
        Range("A7").Value = Left(ValgtListe, Len(ValgtListe) - 2)
    Else
          Range("A7").Value = ""
    End If
End Sub

Ikke testet...

en kæmpe tak!

så lidt :)