per Macro Pivot-table anpassen

Dieses Thema im Forum "Visual Basic" wurde erstellt von Daniel, 5 Dezember 2012.

  1. Daniel

    Daniel
    Expand Collapse
    Member Deluxe

    Registriert seit:
    7 April 2001
    Beiträge:
    333
    Zustimmungen:
    0
    Hallo

    ich möchte eine Pivottable die für 2012 aufgesetzt ist anpassen, dass nun Daten von 2013 erscheinen

    Dazu hab ich 4 Zeilen aufgezeichnet, die sich dann 12 x wiederholen

    Nun bekomme ich aber schon bei der ersten Zeile den folgenden Fehler:
    > Unable to set Orientation property of the PivotField dass<

    Hat jemand eine Idee was ich machen muss/könnte ?

    Hier die Code Zeilen:

    ActiveSheet.PivotTables("PivotTable1").PivotFields("FY12-01").Orientation = xlHidden

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("FY13-01")
    .Orientation = xlRowField
    .Position = 3
    End With

    ActiveSheet.PivotTables("PivotTable1").AddDataField ActiveSheet.PivotTables( _
    "PivotTable1").PivotFields("FY13-01"), "Count of FY13-01", xlCount

    With ActiveSheet.PivotTables("PivotTable1").PivotFields("Count of FY13-01")
    .Caption = "Sum of FY13-01"
    .Function = xlSum
    .NumberFormat = "0"
    End With
     
  2. thomas60

    thomas60
    Expand Collapse
    New Member

    Registriert seit:
    26 November 2012
    Beiträge:
    6
    Zustimmungen:
    0
    Hallo Daniel
    Ich habe es mal nachgebaut. Ich glaube der Fehler tritt auf, weil das Feld in dem Moment schon "xlHidden" ist.
    Wenn ich es sichtbar mache, tritt der Fehler nicht auf.
    Ist es xlHidden kannst Du die Property nicht mehr abfragen, ich vermute es ist dann nicht mehr Member der PivotFields collection.
    Thomas
     
Die Seite wird geladen...

Diese Seite empfehlen