Hallo VBA-Cracks,
habe das Problem gestern in Spotlight gepostet, aber keine Hilfe bekommen. Jetzt versuche ich es bei Herber und hoffe das dies jetzt kein Crossposting ist.
Ich möchte eine Pivot-Table per VBA nach automatischer Datenübernahme an die neue Tabellenlänge anpassen, die Daten aktualisieren und als Seitenfeld den aktuellen Monat einstellen. Das ganze ohne das Sheet per Select anzusteuern.
Die Befehle 1 + 2 funktionieren tadellos, aber bei dem 3. Befehl bekomme ich die Fehlermeldung: "Objekt unterstützt diese Eigenschaft oder Methode nicht."
Sheets("Pivotauswertung").PivotTableWizard SourceType:=xlDatabase, SourceData:= _
"Daten!R1C1:R" & lonDaten + lonLänge - 2 & "C11"
Sheets("Pivotauswertung").PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Pivotauswertung").PivotTables("PivotTable1").CurrentPage = "Januar"
Den Code habe ich aus dem Makrorekorder und habe das dann entsprechend angepasst.
Danke für euere Hilfe.
Michael