Laufzeitfehler - SeriesCollection
25.02.2015 08:30:21
Manuel
ich habe in meinem Makro, wie der Titel verrät, einen Laufzeitfehler und komme nicht dahinter warum.
Sub change_sourceRow()
Dim Range As String
Dim lastRow, i As Long
Const FIRSTROW = 7
Const NUM_Series = 12
Dim Series(12, 2) As String
Series(1, 1) = "M"
Series(2, 1) = "N"
Series(3, 1) = "O"
Series(4, 1) = "P"
Series(5, 1) = "Q"
Series(6, 1) = "R"
Series(7, 1) = "S"
Series(8, 1) = "T"
Series(9, 1) = "U"
Series(10, 1) = "V"
Series(11, 1) = "W"
Series(12, 1) = "X"
lastRow = ActiveSheet.Range("C5").Value + FIRSTROW - 1
Sheets("Grafik").Select
ActiveSheet.ChartObjects("Diagramm 1").Activate
For i = 1 To NUM_Series
Range = "='Grafik'!$" & Series(i, 1) & "$" & FIRSTROW & ":$" & Series(i, 1) & "$" & _
lastRow
ActiveChart.SeriesCollection(i).Values = Range
Next
End Sub