Erweitern bestimmter Bereiche einer Pivot-Tabelle in Excel über VBA und/oder zum Original-Spot springen

Question

Ich habe eine Pivot-Tabelle nach Jahren, Quartalen und Monaten segmentiert. Wenn ich versuche, ein Quartal um für 2015 zu erweitern, wird das entsprechende Quartal in alle anderen Jahre angezeigt. Wie kann ich nur ein Viertel für ein Jahr erweitern?
- https://superuser.com/questions/1049881/expanding-specific-sections-of-a-pivot-table-in-excel

Diese Frage bekam keine Antwort gibt, aber das war kein Programmier Forum. Ich habe eine ähnliche Frage. Gibt es eine VBA-Lösung?

Alternativ gibt es einen VBA-Code, der die Klickerweiterung "fängt" und dann in die ursprüngliche Zelle springt, auf die Plus geklickt wurde?

Beispieldatei: http://ge.tt/2dNZ40n2

Beispielcode (ich diese wahre will nur für):

ActiveSheet.PivotTables(1).PivotFields("Month").PivotItems("3").ShowDetail = True 

Answer 1

Sie so etwas wie dieses verwenden kann? Das wird ein guter Ausgangspunkt für Sie, werden Sie eine IF-THEN für jeden Monat

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable) 

    If (ActiveSheet.PivotTables(1).PivotFields("Month").PivotItems("3").ShowDetail) Then 
     ActiveSheet.PivotTables(1).PivotFields("Month").PivotItems("3").ShowDetail = False 
     Sheets(2).Activate 
     '''' Change filter options here? or have a cell selected? 
    End If 

End Sub