VBA-Code leider fehlerhaft
30.09.2004 14:26:07
Tom
ich habe ein Makro aufgezeichnet und meinen Bedürfnissen entsprechend angepasst, leider zeigt er mir immer wieder einen Fehler an und ich habe leider keine Idee warum, das Makro sieht folgendermaßen aus:
Sub Makro1()
Dim S As Variant
S = Workbooks("Mappe1.xls").Sheets("Kosten").Range("A1").Value - 24
If S < 1 Then S = 1
Windows("GrafischeDarstellung.xls").Activate
Sheets("Kennzahlen").Select
ActiveSheet.ChartObjects("Diagramm 7").Activate
ActiveChart.SeriesCollection(1).XValues = _
"='[Mappe1.xls]Kosten'!R&S&C1:R&S+24&C1"
ActiveChart.SeriesCollection(1).Values = _
"='[Mappe1.xls]Kosten'!R&S&C5:R&S+24&C5"
ActiveChart.SeriesCollection(1).Name = _
"='[Mappe1.xls]Kosten'!R2C5"
ActiveChart.SeriesCollection(2).XValues = _
"='[Mappe1.xls]Kosten'!R&S&C1:R&S+24&C1"
ActiveChart.SeriesCollection(2).Values = _
"='[Mappe1.xls]Kosten'!R&S&C6:R&S+24&C6"
ActiveChart.SeriesCollection(2).Name = _
"='[Mappe1.xls]Kosten'!R2C6"
ActiveChart.SeriesCollection(3).XValues = _
"='[Mappe1.xls]Kosten'!R&S&C1:R&S+24&C1"
ActiveChart.SeriesCollection(3).Values = _
"='[Mappe1.xls]Kosten'!R&S&C7:R&S+24&C7"
ActiveChart.SeriesCollection(3).Name = _
"='[Mappe1.xls]Kosten'!R2C7"
End Sub
Auf dem Diagrammblatt "Kennzahlen" sind mehrere Grafiken. Die Fehlermeldung ist folgende: Laufzeitfehler '1004' Die XValues-Eigenschaft des Series Objektes kann nicht festgelegt werden'.
Für einen Hinweis wäre ich echt dankbar.
Gruß Tom