VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur PivotLayout-Eigenschaft

In diesem Beispiel wird eine Liste aller PivotTable-Feldnamen erstellt, die im ersten PivotChart-Bericht verwendet werden.

Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF In _
    Charts("Chart1").PivotLayout.PivotFields
    objNewSheet.Cells(intRow, 1).Value = objPF.Caption
    intRow = intRow + 1
Next objPF