Thema Datum  Von Nutzer Rating
Antwort
Rot Kuchendiagramm nach Werten der Zelle färben
08.10.2021 18:32:07 Linda
NotSolved
09.10.2021 14:35:42 Gast34699
NotSolved
09.10.2021 16:02:53 Linda
NotSolved
17.10.2021 13:25:44 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Linda
Datum:
08.10.2021 18:32:07
Views:
134
Rating: Antwort:
  Ja
Thema:
Kuchendiagramm nach Werten der Zelle färben

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Kuchendiagramm nach Werten der Zelle färben
08.10.2021 18:32:07 Linda
NotSolved
09.10.2021 14:35:42 Gast34699
NotSolved
09.10.2021 16:02:53 Linda
NotSolved
17.10.2021 13:25:44 ralf_b
NotSolved