Makros schreiben, die Pivotlayout verändern
20.02.2006 11:09:06
nsl2002
ich möchte ein Makro schreiben, das meine Pivottabelle im Layout ändert (Spalten entfernen, hinzufügen, umstellen und neue Filterkriterien). Die Aufzeichnung ist auch ganz Problemlos. Wenn ich das Makro jedoch starte meldet mir Excel einen Laufzeitfehler 1004: "Die PivotFields-Eigenschaft des Pivot Table-Objektes kann nicht zugeordnet werden."
Hier ein Beispiel:
ActiveCell.Offset(0, 1).Range("A1").Select
With ActiveSheet.PivotTables("PT1 Tab 1").PivotFields( _
"Com Actual")
.Orientation = xlDataField
.Position = 23
End With
ActiveSheet.PivotTables("PT1 Tab 1").PivotFields("Data").PivotItems( _
"Summe - Com Actual").Position = 23
End Sub
Kann mir jemand weiterhelfen?
Danke!!!