In diesem Beispiel wird das Feld "Year" in ein Zeilenfeld im ersten PivotTable-Bericht von Sheet3 umgewandelt. Bei der angegebenen Datenreihe muss es sich um eine 2D-Linien-, Punkt- oder Netzdatenreihe handeln.
Worksheets("sheet3").PivotTables.Item(1) _ .PivotFields("year").Orientation = xlRowField