Netz mit Datenpunkten - Farben

[Issi]

Hallo, ich habe folgendes Problem, ich habe ein Diagramm (muss unbedingt als Typ "Netz mit Datenpunkten sein!). 
Ich möchte nun, dass sie die Linie je nach Wert farblich ändert (Mit 2 Datensätzen zu arbeiten ist bei diesem Diagrammtyp leider keine Option)

Habt ihr da vielleicht ideen wie man sowas lösen kann?

Beispieldatei ist im Anhang dabei

Liebe Grüße

[coemm]

Hallo Issi,

bedingte Formatierung geht nicht bei Diagrammen.
Da ist wohl nur eine VBA-Lösung möglich.
(Dabei kann ich dir leider nicht helfen.)

[schauan]

Hallöchen,

ich habe mir erst einmal ein Makro vom Einfärben einer Linie aufgezeichnet.

Code:

Sub Makro1()
'
' Makro1 Makro
'

'
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    ActiveChart.FullSeriesCollection(2).Select
    ActiveChart.FullSeriesCollection(2).Points(2).Select
    With Selection.Format.Line
      .Visible = msoTrue
      .ForeColor.RGB = RGB(112, 48, 160)
      .Transparency = 0
    End With
End Sub

dann habe ich das etwas umgestrickt. Gewünschte Farben kannst Du übrigens auch aufzeichnen und dann hier einsetzen.

Code:

Sub Makro2()
    'Diagramm aktivieren
    ActiveSheet.ChartObjects("Diagramm 1").Activate
    'innere Linie selectieren - muss nicht sein
    ActiveChart.FullSeriesCollection(2).Select
    'Schleife ueber alle Datenpunkte der Linie
    For i = 1 To ActiveChart.FullSeriesCollection(2).Points.Count
      'Punkt selectieren
      ActiveChart.FullSeriesCollection(2).Points(i).Select
      'Mit der zugehoerigen Line
      With Selection.Format.Line
        'Auswahl in Abhaengigkeit der Datenliste in Spalte C
        Select Case Cells(i + 2, 3)
           'bei kleiner gleich 4
           Case Is <= 4
           'irgendeine Farbe
          .ForeColor.RGB = RGB(112, 48, 160)
           'bei kleiner gleich 8 - wird nur durchlaufen wenn vorherige Bedingungen falsch
           Case Is <= 8
           'irgendeine Farbe
          .ForeColor.RGB = RGB(112, 148, 160)
           'ansonsten - wenn alle vorherigen Bedingungen falsch
           Case Else
           'irgendeine Farbe
          .ForeColor.RGB = RGB(255, 255, 0)
        'Ende Auswahl in Abhaengigkeit der Datenliste in Spalte C
        End Select
      'Ende Mit der zugehoerigen Line
      End With
    'Ende Schleife ueber alle Datenpunkte der Linie
    Next
End Sub

[Issi]

Hallo schauan,

vielen lieben Dank!!!! Es funktioniert ! Top !