In diesem Beispiel wird das Feld "Year" in dem ersten PivotTable-Bericht von Sheet3 zu einem Zeilenfeld gemacht.
Worksheets("sheet3").PivotTables(1) _ .PivotFields.Item("year").Orientation = xlRowField