Hallo zusammen,

ich komme an folgendem Punkt nicht weiter...

Mein Kuchendiagramm soll sich entprechend dem Wert in der Zelle automatisch färben. Das erste Kuchenstück bezieht sich auf die Zelle A10. Wenn in dieser Zelle eine Zahl > 0 drinsteht, soll das Stück sich rot färben. Wenn in dieser Zelle eine Zahl < 0 steht soll sie dunkelgrün werden. Wenn sie = 0 ist, dann hellgrün und bei leeren Zellen grau. Die Bedingungen habe ich reingeschrieben aber der Code färbt nur das letzte Stück in der entsprechenden Farbe. Das zweite Stück bzw. die zweite Fläche sollte sich auf die Zelle A12 beziehen und auch je nach Bedingung gefüllt werden,...

Wisst ihr evtl. woran es liegt und könnt mir weiterhelfen? Habe mit meinen minimalen Kenntnissen leider nur den beigefügten Code schreiben können :(

Vielen Dank im Voraus!

Sub Makro1()


ActiveSheet.ChartObjects("Diagramm 2").Activate

Dim i As Double

For i = 10 To 34 Step 2

For j = 1 To 13
j = j + 1

If Cells(i, 1) > 0 Then
ActiveChart.FullSeriesCollection(1).Points(j).Select
With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
        .Solid
    End With
End If
    
If Cells(i, 1) = 0 Then
ActiveChart.FullSeriesCollection(1).Points(j).Select
With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(146, 280, 80)
        .Transparency = 0
        .Solid
    End With
End If
 
If Cells(i, 1) < 0 Then
ActiveChart.FullSeriesCollection(1).Points(j).Select
With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(84, 130, 53)
        .Transparency = 0
        .Solid
    End With
End If

If Cells(i, 1) = "(Leer)" Then
ActiveChart.FullSeriesCollection(1).Points(j).Select
With Selection.Format.Fill
        .Visible = msoTrue
        .ForeColor.RGB = RGB(89, 89, 89)
        .Transparency = 0
        .Solid
    End With
End If

Next i

End Sub