ich habe folgendes Makro:
Sub Kopieren()
' Kopieren Makro
Range("X1").Select
Selection.Copy
Sheets("Stornogründe detailliert").Select
ActiveSheet.PivotTables("PivotTable1").PivotFields("Partnernummer"). _
ClearAllFilters
ActiveSheet.PivotTables("PivotTable1").PivotFields("Partnernummer"). _
CurrentPage = "123456"
Range("A18").Select
Sheets("Dashboard").Select
Range("A4").Select
End Sub
Mein Problem ist jetzt, dass sobald ich die Nummer "123456" im Arbeitsblatt "Stornogründe detailliert" ändere und das Makro ausführe, er das Diagramm nicht mehr anpasst.Wie kann ich mit VDS den Wert in einem Filter in Arbeitsblatt "Partnernummer" kopieren, damit mein Diagramm dann automatisch angepasst wird?