Berichtsfilter durch Zellenwert
12.12.2014 10:26:42
Exembrem
ich versuche meine Pivot Tabellen "Umsatz", "Personal",und "Materialien" im Tabellenblatt "Diagramme-Basis" über einen manuell eingegeben Zellinhalt auf dem Blatt "Übersicht" filtern zu lassen (Zelle A1=Wert des Berichtsfilters). Die Pivots haben einen Berichtsfilter namens "Bezeichnung", der Filter ist für alle Pivots verbunden. Gefiltert werden soll aber nur - wenn auch wirklich ein Wert in Zelle A1 eingegeben ist.
Ich habe einen VBA-Code hier im Forum gefunden und wollte diesen auf meine Situation abändern, bekomme allerdings eine Fehlermeldung.
VBA-Code im Blatt Diagramme-Basis:
Private Sub Worksheet_Change(ByVal Target As Range)
Call PivAendern
End Sub
Kann mir bitte jemand helfen, das ganze umzuändern? VBA Code im Modul1:
Sub PivAendern()
With Sheets("Diagramme-Basis").PivotTables(1)
.PivotFields("Bezeichnung").CurrentPage = Sheets("Übersicht").[A1].Value
.PivotCache.Refresh
End With
End Sub