Chart unter VBA
TommiH
hm, und noch eine Frage, ich würde gerne aus den Spalten A6-A11 (Betextung) und D6-D11 (Werte) einen ganz normalen Balkenchart generieren, horizontal ausgerichtet, mit den Werten am Ende eines jeden Balkens, eigentlich gerne die Cylinder-Balken - und das Ganze ohne Legende.
Da ich mich mit Charts noch sehr wenig auskenne (unter VBA fast noch gar nicht) dachte ich ich nehme den Makro-Recorder, aber der zeichnet DAS auf - und wenn ich das einbinde dann kommt nur ein
'Anwendungs oder objektorientierter Fehler'
Kann mir da jemand einen Tip geben, wie ich den Makro-Recorder-Code lauffähig bekomme?
Tommi
Range("A6:A11,D6:D11").Select
Range("D6").Activate
ActiveSheet.Shapes.AddChart.Select
ActiveChart.SetSourceData Source:=Range( _
"'EP-Auswertung'!$A$6:$A$11;'EP-Auswertung'!$D$6:$D$11")
ActiveChart.ChartType = xlCylinderBarClustered
ActiveChart.Legend.Select
Selection.Delete
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(1).Select
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(1).ApplyDataLabels
ActiveSheet.ChartObjects("Diagramm 2").Activate
ActiveChart.SeriesCollection(1).DataLabels.Select