VBA-Programmierung in Microsoft Excel

VBA-Begriff: Beispiel zur CubeField-Eigenschaft

In diesem Beispiel wird eine Liste der Cube-Feldnamen für alle Hierarchiefelder in dem ersten OLAP-basierten PivotTable-Bericht in Sheet1 erstellt.

Set objNewSheet = Worksheets.Add
objNewSheet.Activate
intRow = 1
For Each objPF in _
    Worksheets("Sheet1").PivotTables(1).PivotFields
    If objPF.CubeField.CubeFieldType = xlHierarchy Then
        objNewSheet.Cells(intRow, 1).Value = objPF.Name
        intRow = intRow + 1
    End If
Next objPF