Hallo liebes Forum,

ich möchte eine bestehende PivotTable automatisch über ein Makro filtern lassen. Das ganze wird dann später in eine Schleife eingebaut, um mehrere Kundensätze in einem Zug auszulesen.

Hier mein aufgezeichnetes Makro:

Sub Cube_filtern()

    Range("I4").Select
    Selection.Copy
    ActiveSheet.PivotTables("PivotTable1").PivotFields("[Kunde].[KD NR].[KD NR]"). _
        VisibleItemsList = Array("[Kunde].[KD NR].&[468100]")
End Sub

Die Nummer 468100 ist die Kundennummer aus Zelle I4 auf dem gleichen Tabellenblatt (im Moment der Aufzeichnung).

Wenn das Makro nun ausgeführt wird, wird natürlich nur nach dieser Nummer gefiltert.

Könnt ihr mir bitte sagen, wie ich dieses Filterkriterium dynamisch bekomme, d.h. sich immer der aktuelle Wert genommen wird?

Vielen Dank für eure Hilfe im Voraus!