Hello again, :-)
folgendes Makro funktioniert zunächst wie gewünscht:

Sub select_month() Application.EnableEvents = False Application.ScreenUpdating = False With Sheets("Pivot")     With .PivotTables("PivotTable1").PivotFields("Month")         .Orientation = xlRowField         .Position = 1     End With '... End With 'Call copy_formula Application.ScreenUpdating = True Application.EnableEvents = True End Sub Ich möchte es jedoch aus einer Userform heraus starten (dabei ist ein Diagrammblatt aktiviert, falls das eine Rolle spielt). Dann bekomme ich jedoch die Fehlermeldung, dass die PivotFields-Eigenschaft nicht zugeordnet werden könne (Laufzeitfehler 1004). Der erste Schritt wurde noch ausgeführt (Feld "Month" wird vom Seiten- in das Zeilenfeld geschoben), dann kommt der Fehler. Kann mir jemand sagen, was da falsch läuft? Vielen Dank an alle Mitdenker! Viele Grüße Matthias