Pivot Filter aus Zelle
18.08.2021 12:34:13
Hans
ich bin am verzweifeln, da ich so viele Seiten zu dem Thema gelesen und die Antworten ausprobiert habe, es aber einfach nicht klappt. Problem ist super simpel und für Euch bestimmt innerhalb von wenigen Minuten lösbar.
Ich arbeite mich in 1. Schritt durch den Datenschnitt aus der Pivot Tabelle , wobei jeder Wert einzeln ausgewählt wird.
Zelle D5 zieht per Formel den gefilterten Namen aus der Pivot und schneidet diesen passend ab.
Jetzt möchte ich, dass bei jeder Auswahl im Datenschnitt die Pivot Tabellen 2 und 3 den Wert aus D5 filtern
Hinweis: in Pivot Tabelle 2 heißt das Feld "ID Menge" und in Tabelle 3 heißt das Feld "IDohneBuchstaben"
Könntet Ihr mir bitte sagen, wie das in VBA programmiert werden kann? Es soll nur der ID Wert verändert werden, alle anderen Einstellungen sollen beibehalten werden
Hier die Beispielmappe:
https://www.herber.de/bbs/user/147683.xlsx
Vorab vielen Dank für Eure Zeit!
Ich habe den Vorschlag aus dem Forum versucht:
https://www.herber.de/forum/archiv/1080to1084/1080552_PivotFilter_ueber_Zellinhalt_steuern.html
Private Sub Worksheet_Change(ByVal Target As Range)
Call PivAendern
End Sub
Sub PivAendern()
With Sheets("PIVOT").PivotTables(1)
.PivotFields("Daten1").CurrentPage = Sheets("AUSW").[B1].Value
.PivotCache.Refresh
End With
End Sub
Aus dem ExtendOffice Forum habe ich auch folgendes versucht:
Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180702
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("H6:H7")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Sheet1").PivotTables("PivotTable2")
Set xPFile = xPTable.PivotFields("Category")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub