So, brauche als VBA-Dummie auch einmal Hilfe.
Habe eine Zelle in Excel, die den Filter eines Pivots ansteuert (Makro siehe unten). Diese Zelle (hier B1) erhält die Werte durch Referenz ("=Report!BZ4") auf ein anderes Tabellenblatt (durchlaufende Werte duch Stapelverarbeitung eines zweiten Makros gesteuert).
Die Herausforderung ist, dass der Wert in B1 nicht durch Änderung des Zellinhalts durch das zweite Makro den Pivot-Filter ansteuert. Ich muss in die Zelle B1 klicken und nochmals mit Enter bestätigen, damit die Pivot Filter angesteuert werden (natürlich vollkommen ungeeignet für eine Stapelverarbeitung).
Wer weiß Rat, wie ich durch pure Änderung des Inhalts der Zelle das Pivot updaten kann?!
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xPTable As PivotTable
Dim xPFile As PivotField
Dim xStr As String
On Error Resume Next
If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Set xPTable = Worksheets("Reporting_Data_MO").PivotTables("SenseNew")
Set xPFile = xPTable.PivotFields("OU")
xStr = Target.Text
xPFile.ClearAllFilters
xPFile.CurrentPage = xStr
Application.ScreenUpdating = True
End Sub