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:
1458		 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!

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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