Laufzeitfehler '1004'

Hallo ihr Experten!
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.
Userbild

Gruß Annette

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit


Sub test()
Dim wks As Worksheet
Dim wbk As Workbook
Dim xlsChart As Chart
Set wbk = Excel.ThisWorkbook
Set wks = wbk.Worksheets(1)
Set xlsChart = wbk.Charts.Add
With xlsChart
.ChartType = xl3DColumn
.SetSourceData Source:=Worksheets(1).Range("B57:C57"), PlotBy:=xlRows
.SeriesCollection.Add Source:=wks.Range(wks.Cells(57, 5), wks.Cells(57, 6)).Address(ReferenceStyle:=xlR1C1, External:=True)
.SeriesCollection.Add Source:=wks.Range(wks.Cells(57, 8), wks.Cells(57, 9)).Address(ReferenceStyle:=xlR1C1, External:=True)
.SeriesCollection.Add Source:=wks.Range(wks.Cells(57, 11), wks.Cells(57, 12)).Address(ReferenceStyle:=xlR1C1, External:=True)
'        .SeriesCollection(2).Values wks.Range(wks.Cells(57, 5), wks.Cells(57, 6)).Address(ReferenceStyle:=xlR1C1, External:=True)
'        .SeriesCollection(3).Values = wks.Range(wks.Cells(57, 8), wks.Cells(57, 9)).Address(ReferenceStyle:=xlR1C1, External:=True)
'        .SeriesCollection(4).Values = wks.Range(wks.Cells(57, 11), wks.Cells(57, 12)).Address(ReferenceStyle:=xlR1C1, External:=True)
.Location Where:=xlLocationAsNewSheet, Name:="Orientierungen"
End With
End Sub

Beliebteste Forumthreads (12 Monate)

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread