Laufzeitfehler '1004'

Forumthread: Laufzeitfehler '1004'

25.08.2005 19:11:29

Annette

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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Laufzeitfehler '1004'

25.08.2005 21:28:41

Daniel

AW: Laufzeitfehler '1004'

25.08.2005 21:28:41

Daniel

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

Forumthread: Laufzeitfehler '1004'

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread