PIVOT Tabelle über Zellenbezug filtern

[Excelsior940]

Hallo Excelprofis,

ich möchte eine Pivot Tabelle über den Inhalt mehrere Zellen filtern.

(Screenshot siehe Anhang)

Die im Screenshot dargestellte Tabelle soll nach den in Spalte J angegebenen KW´s gefiltert werden. Es wäre optimal wenn man die Zellenbeschriftung in spalte F filtern könnte und nicht zusätzlich einen extra Filter für die PIVOT einsetzen muss.

Ich habe bereits diesen Code probiert:

Worksheets("Tabelle1").PivotTables("PivotTables1").PageFields("Woche").CurrentPage = Worksheets("Tabelle1"). _

Range("J2:J3").Text

Beim Ausführen bekomme ich folgenden Fehler:

Laufzeitfehler 1004:
Die PivotTables-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet werden.

Vielen Dank bereits im Voraus für eure Hilfe.

[shift-del]

Moin

Du könntest es auch mit einem Datenschnitt versuchen.

[Excelsior940]

Hallo Shift-del,

vielen Dank für deine Antwort.
Kann man bei einen Datenschnitt nicht nur händisch eine Anpassung vornehmen?
Die KW´s werden sich in Zukunft ändern. Daher kann ich nicht mit VBA sagen, dass er immer das 4. & 5. Element des Datenschnitts auswählen kann.

---

Ich habe eine Lösung gefunden:

Dim iCWStart As Integer
Dim iCWEnd As Integer

iCWStart = Workbooks("Test.xlsm").Worksheets("Tabelle1").Range("J2").Value
iCWEnd = Workbooks("Test.xlsm").Worksheets("Tabelle1").Range("J4").Value

    ActiveSheet.PivotTables("PivotTable1").PivotSelect "KW[All]", xlLabelOnly + _
        xlFirstRow, True
    ActiveSheet.PivotTables("PivotTable1").PivotFields("KW").PivotFilters.Add2 _
        Type:=xlCaptionIsBetween, Value1:=iCWStart, Value2:=iCWEnd