FullSeriesCollection
21.09.2015 15:27:25
Luca
For i = 1 To Anzahl
wert = Range("E8").Offset(i - 1, 0).Value
Worksheets("Inputs").ChartObjects("Diagramm 4").Activate
With ActiveChart.FullSeriesCollection(3).Points((2 * i) - 1)
If wert > 0 Then
With .Format.Fill
.ForeColor.Brightness = -0.25
End With
Else
With .Format.Fill
.ForeColor.Brightness = 0.6000000238
End With
End If
End With
ActiveChart.FullSeriesCollection(3).DataLabels.AutoText = True
Next i
Nun möchte ich dies aber ohne das ganze "Activate"Zeugs schreiben. Jedoch klappt es nicht wenn _ ich einfach
With Worksheets("Inputs").ChartObjects("Diagramm 4").FullSeriesCollection(3).Points((2 * i)-1)
schreibe.
Hat jemand eine Lösung ?
Vielen Dank im Voraus