Pivot-Chart
17.12.2012 13:40:37
JACKD
Ich hätte mal wieder ein Anliegen und hab auch bisher irgendwie nix dazu gefunden.
Und zwar hab ich folgenden Code
'Blatt erstellen
Sheets.Add after:=Worksheets(Worksheets.count)
ActiveSheet.name = x
'Pivot-Diagramm-einfügen
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Master!R1C1:R" & LZeile & "C" & LSpalte & "", Version:=xlPivotTableVersion14).CreatePivotTable _
TableDestination:="" & x & "!R3C1", TableName:=x, _
DefaultVersion:=xlPivotTableVersion14
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=PivotTable(x).TableRange1
In dem Fett markierten Bereich komm ich allerdings nicht weiter.
Wie kann ich in dem Chart die Source auf eine Pivot table setzen? oder hab ich grad ein Denkfehler?
Thanks in advance