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
|