ich möchte gerne in einem Chart positive Säulen grün und negative Säulen rot einfärben.
Habe es mit folgendem Makro versucht, es funktioniert aber nicht, die ursprüngliche Formatierung wird einfach nicht geändert.
Was mache ich falsch?
1000 Dank!
Hier das Makro:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("ab7:ab16")) Is Nothing Then
If Target.Count = 1 Then Call Format_Diagramm
End If
End Sub
Private Sub Format_Diagramm()
Dim Dia As Chart, sc As Series, p As Byte, pc As Byte
Set Dia = Sheets("Verlustgesellschaft").ChartObjects("Diagramm 6").Chart
Set sc = Dia.SeriesCollection(1)
pc = sc.Points.Count
For p = 1 To pc
sc.Points(p).Interior.ColorIndex = 3
If Sheets("Verlustgesellschaft").Cells(p + 1, 2) > 0 Then
sc.Points(p).Interior.ColorIndex = 4
End If
Next
End Sub