Name der aktiven Pivot-Tabelle

Question

Ich habe ein Arbeitsblatt mit mehreren Pivot-Tabellen. Alle Pivot-Tabellen sind auf die gleiche Weise formatiert.

Wie verschiebe ich mehrere Felder in Werte mit VBA für aktive Pivot-Tabelle im Arbeitsblatt?

Ich habe versucht, ein Makro aufzuzeichnen, um die Felder auf Werte zu verschieben, aber den Pivot-Tabellennamen im VBA-Code manuell ändern zu müssen, wenn ich das Makro für eine andere Pivot-Tabelle verwenden möchte. Ich möchte vermeiden, den Pivot-Tabellennamen manuell eingeben zu müssen.

Sie können in der Bildschirmaufnahme sehen, ich ziehe den "Wert" in der Feldliste manuell in den Bereich "WERTE" für jede der Pivot-Tabellen.

Es ist eine sich wiederholende Aufgabe, die ich mit VBA automatisieren möchte, aber jede der Pivot-Tabellen hat eindeutige Namen.

Excel Screen Capture

Answer 1

Siehe http://peltiertech.com/referencing-pivot-table-ranges-in-vba/ für einen guten Überblick darüber, wie die verschiedenen Teile einer Pivot-Tabelle zu adressieren.

Dies sollte Ihnen den Einstieg:

Sub Tester() 

    Dim pt As PivotTable 

    Set pt = ActivePivotTable 

    If pt Is Nothing Then 
     Debug.Print "No Active pivot table" 
    Else 
     Debug.Print "Active = " & pt.Name 
     'work on pt... 
    End If 

End Sub 

'get the pivot table which contains the current selection 
Function ActivePivotTable() As PivotTable 
    Dim pt As PivotTable, rv 
    For Each pt In ActiveSheet.PivotTables 
     Debug.Print pt.Name, pt.TableRange2.Address 
     If Not Intersect(Selection, pt.TableRange2) Is Nothing Then 
      Set ActivePivotTable = pt 
      Exit Function 
     End If 
    Next pt 
End Function