Schönen Guten Tag,

ich schreibe zur Zeit ein Tool basiernd auf Excel / VBA, in welchem ich relativ viele Punkte in ein Diagramm zeichen lassen möchte. Nun habe ich habe allerdings noch ein zusätzliches Attribut für jedes Koordinatenpaar, welches die Farbe des Punktes beeinflussen soll. Je nach Inhalt der Zelle (S,M,L), soll der Punkt entweder rot, gelb oder grün werden. 

Ich habe mich bereits in verschiedenen Forum umgesehen und versucht verschiedene Codes an mein Problem anzupassen, wobei ich aber bisher noch keinen Erfolg verbuchen konnte.

Hier mal mein bisheriger Code:

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.
https://dl.dropboxusercontent.com/u/40317881/Forum.xlsm

Achja ich benutze Office for Mac 2011

Schon einmal vielen Dank für die Hilfe!

Beste Grüße 

Philipp