Laufzeitfehler '1004'
25.08.2005 17:11:29
Annette
Kann mir jemand helfen einen Laufzeitfehler '1004' "Die Values-Eigenschaft des Serienobjektes kann nicht festgelegt werden." zu beheben?
Das ist der entsprechende Teil des Makros:
Set wks = wbk.Worksheets(1)
Set xlsChart = wbk.Charts.Add
xlsChart.ChartType = xl3DColumn
xlsChart.SetSourceData Source:=Worksheets(1).Range( _
"B57:C57"), PlotBy:=xlRows
xlsChart.SeriesCollection.NewSeries
xlsChart.SeriesCollection.NewSeries
xlsChart.SeriesCollection.NewSeries
xlsChart.SeriesCollection(2).Values = wks.Range(wks.Cells(57, 5), wks.Cells(57, 6)).Address(ReferenceStyle:=xlR1C1, External:=True)
xlsChart.SeriesCollection(3).Values = wks.Range(wks.Cells(57, 8), wks.Cells(57, 9)).Address(ReferenceStyle:=xlR1C1, External:=True)
xlsChart.SeriesCollection(4).Values = wks.Range(wks.Cells(57, 11), wks.Cells(57, 12)).Address(ReferenceStyle:=xlR1C1, External:=True)
xlsChart.Location Where:=xlLocationAsNewSheet, Name:="Orientierungen"
Das verrückte ist, er zeigt mir beim Debuggen sogar die richtigen Werte für die Zellen an, ordnet sie dann aber nicht den Säulen zu, so daß diese bis auf die erste Reihe alle den Wert 1 haben.
Gruß Annette