In diesem Beispiel werden die Namen der Spaltenfelder des PivotTable-Berichts in eine Liste auf einem neuen Tabellenblatt aufgenommen.
Set nwSheet = Worksheets.Add nwSheet.Activate Set pvtTable = Worksheets("Sheet2").Range("A1").PivotTable rw = 0 For Each pvtField In pvtTable.ColumnFields rw = rw + 1 nwSheet.Cells(rw, 1).Value = pvtField.Name Next pvtField