Diagrammbalken werteabhängig einfärben
12.04.2006 11:55:27
CPFT
wer kann mir sagen, wie ich Balken in einem Linien/Balken-Diagramm rot ausgeben lassen kann, sobald diese unter den Wert der Linie kommt?
Folgendes Makro habe ich gefunden, allerdings kann ich dort nur alle Balken, die unter Null gehen einfärben, nicht aber die Werte ins Verhältnis zur anderen Datenreihe setzen:
Sub ChangeColor()
Dim Datenreihe As Series
Dim Punkt As Point
Dim i As Integer
Dim Darray As Variant
Set Datenreihe = _
ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
With Datenreihe
Darray = .Values
For Each Punkt In .Points
i = i + 1
If Darray(i) < 0 Then
Punkt.Interior.ColorIndex = 3
Else
Punkt.Interior.ColorIndex = 33
End If
Next
End With
End Sub
Gruß und Dank für eure Hilfe.
Anzeige