Diagrammpunkte in Abhängigkeit vom Ergebnis einfärben

[Wanderfalke]

Hallo,

ich stehe vor folgender Frage: Ich habe ein Reihe von Messwerten (Temperaturen) und dem jeweils dazugehörigen Testergebnis (ok oder nicht ok).
Bspw.
Nr.   Temp.  Ergebnis
1      24        ok
2      33        notok
3      26        notok
4      31        ok
….

Diese Werte möchte ich als Punktediagramm darstellen.
In diesem Diagramm sollen die Datenpunkte bei 'ok' grün und bei 'notok' rot dargestellt werden.

Wie kann ich das per VBA umsetzen? Danke!

[Wanderfalke]

Hallo,

mit Hilfe des Makrorekorders bin ich einen kleinen Schritt weitergekommen.

Jedoch ergibt sich an der Stelle des Einfärbens ein seltsamer Effekt. Hier der Code:

ActiveSheet.ChartObjects("Diagramm 7").Activate
  ActiveChart.PlotArea.Select
  ActiveChart.FullSeriesCollection(1).Select
  ActiveChart.FullSeriesCollection(1).Points(Counter).Select
  If Cells(LV_i, Ziel_Spalte + 8).Value = 1 Then             'Ergebnis binär = ok bzw. 1
    With Selection.Format.Fill
     .Visible = msoTrue
     .ForeColor.RGB = RGB(0, 255, 0)                          'grün
     .Transparency = 0

 …..

Wird ".Transparency = 0" erreicht, wird der eine Zeile zuvor ( .ForeColor.RGB = RGB(0, 255, 0)) grün eingefärbte Datenpunkt wieder auf seine Ausgangsfarbe (blau) 'zurückgefärbt'.

Wie lässt sich das verhindern?

VG!

[Ego]

Hallo W....,

warum ein Makro?

Excel hat doch genügend (ansonsten ungenutzte) Zellen.
Am einfachsten ist es die Temp abhängig vom Ergebnis in unterschiedliche Spalten einzutragen und ein Diagramm mit zwei Datenreihen anzulegen.