Sub change_color_points()
Dim Pt As Point
Dim Rng As Range
Dim x As Integer
Dim Y As Integer
Dim MyColor
Set Rng = ActiveSheet.Range("E:E")
x = 1
Y = 2
Application.ScreenUpdating = False
For Each Pt In Portfolio.ChartObjects("Portfolio").Chart.SeriesCollection(2).Points
Portfolio.ChartObjects("Portfolio").Activate
ActiveChart.SeriesCollection(2).Points(x).Select
If Range("E" & Y).Value = "S" Then
MyColor = 3
ElseIf Range("E" & Y).Value = "M" Then
MyColor = 5
Else
MyColor = 7
End If
With Selection.Border
.ColorIndex = MyColor
.Weight = xlThick
.LineStyle = xlContinuous
End With
With Selection
.MarkerBackgroundColorIndex = xlAutomatic
.MarkerForegroundColorIndex = xlAutomatic
.MarkerStyle = xlNone
.MarkerSize = 5
.Shadow = False
End With
x = x + 1
Y = Y + 1
Next Pt
Application.ScreenUpdating = True
End Sub
Hier mal meine bisherige Datei, damit Ihr mein Problem besser verstehen könnt.
Achja ich benutze Office for Mac 2011
Schon einmal vielen Dank für die Hilfe!
Beste Grüße
Philipp