Hallo Zusammen!

Ich bin noch nicht besonders lange dabei mich mit VBA in Excel auseinanderzusetzten und habe eine Frage zu der Funktion "Makros Aufnehmen".

Ich will ein kurzes Makro schreiben, dass mir eine Pivottabelle auf eine bestimmte Ausgangseinstellung setzt. Weil ich nicht wusste wie, habe ich die Einstellungen "mit der Maus gemacht" und als Makro aufgenommen um die entsprechenden Befehle dann zu übernehmen. Wenn ich aber jetzt versuche das Aufgenommene als Macro auszuführen bekomme ich eine Fehlermeldung:

Laufzeitfehler 1004:

Die PivotFields-Eigenschaft des PivotTable-Objektes kann nicht zugeordnet werden.

Der Aufgenommene Code ist:

Sub Grundeistellungen()
'
' Grundeistellungen Makro
'

'
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Tree genus"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Genus").CurrentPage = _
        "(All)"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Product").ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Product").CurrentPage = _
        "(All)"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Price Unit"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Price Unit").CurrentPage = _
        "USD/m3"
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Type of price"). _
        ClearAllFilters
    ActiveSheet.PivotTables("PivotTable1").PivotFields("Type of price"). _
        CurrentPage = "FOB"
End Sub

"Makros aufnehmen" ist ziemlich sinnlos wenn sie im Nachhinein nicht funktionieren, oder?