Parameter ungültig - Laufzeitfehler 1004
24.07.2017 15:14:29
J-
ich habe ein Problem mit einem Teil meines Codes:
Dim position_p As Integer
Dim j As Integer
For j = 0 To years - 1
position_p = bestimmePerzentil(src_start_row + j, wert_jahre(j))
ActiveChart.FullSeriesCollection(j + 1).Points(position_p).Select
With Selection.Format.Fill
.Visible = msoTrue
.ForeColor.RGB = color_selection
.Transparency = 0
.Solid
End With
Call beschriftung(j + 1, position_p, color_selection)
Next j
In der Zeile unter den eingefügten Fragezeichen wird immer Laufzeitfehler 1004 : Parameter ungültig ausgeworfen. Ich habe mit MsgBox überprüft, j wird richtig gezählt und position_p (in meinem Versuch bei Datenreihe 1 gleich 4) wird in der function bestimmePertenzil auch korrekt ermittelt. Dennoch wird die Säule an der gewählten Datenreihe nicht korrekt eingefärbt.
Wenn ich
ActiveChart.FullSeriesCollection(1).Points(4).Select
direkt eintippe funktioniert es leider auch nicht. (Ich habe das nur einmal ausprobiert, da ich dachte, ich könne dadurch den Fehler verstehen.)
Bin für jede Hilfe dankbar!