Office: Diagramm Farbe ändern

hennerich · 23. Mai 2009

Hallo Excel-Expterten,

ich habe folgende Frage:

Ich möchte im Excel 2007 ein Kreisdiagramm mit 3 gleich großen Stücken in verschiedenen Farben reralisieren.
Dazu habe ich mir eine Hilfstabelle angelegt mit 3 Spalten und 2 Zeilen (A1:C2). In der ersten Spalte steht jeweils die Überschrift und in der zweiten Zeile der Wert 1.
Somit ist mein Kreisdiagramm in exakt 3 gleich große Stücke geteilt.
Nun möchte ich abhängig von weiteren 3 Zellwerten (A3:C3) die Farbe der einzelnen Stücke dynamisch ändern.
Will heißen in A3 steht eine 1 dann soll die erste Hälfte grün sein. Steht in A3 eine 2 dann gelb, A3=3 dann rot. Ebenso mit den anderen beiden Stücken.
Dazu habe ich mir ein VBA Makro gebaut, das nicht wirklich funktionieren will. Versuche mit dem Makrorekorder scheiterten an fehlenden Einträgen, da Farbänderungen dort nicht mit aufgezeichnet werden (warum auch immer).
Hier mal mein Makro für den Legendeneintrag 1 (bin noch nicht weiter) im entsprechenden Sheet "Status":
Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim SM As Worksheet
Dim chDiagramm As Chart
Set Target = Intersect(Target, Range("A3:C3"))
Set SM = Worksheets("Status")
Set chDiagramm = ActiveSheet.ChartObjects("Diagramm 1").Chart

If Target Is Nothing Then
Exit Sub
Else
Select Case SM.Range("A3").Value
Case 1: With chDiagramm.Legend.LegendEntries(1).LegendKey
With .Interior
.ColorIndex = (3) 'rot
.Pattern = xlSolid
End With
End With
Case 2: With chDiagramm.Legend.LegendEntries(2).LegendKey
With .Interior
.ColorIndex = (44) 'gelb
.Pattern = xlSolid
End With
End With
Case 3: With chDiagramm.Legend.LegendEntries(3).LegendKey
With .Interior
.ColorIndex = (10) 'grün
.Pattern = xlSolid
End With
End With
End Select
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Vielen Dank und
grüße
Henri

:)

jinx · 25. Mai 2009

Moin, Henri,

warum den das Ereignis beim Ändern des Zellzeigers auslösen? Ich hätte auf die Wahl der Zahl bzw. das Ändern in dieser (also entweder Worksheet_Change- oder Worksheet_Calculate-Ereignis getippt).

Und Target ist der Bereich der Zellen, der beim Auslösen aktiv war. Weiterhin ist meines Wissens SeriesCollection für die Färbung zuständig, nicht jedoch der Eintrag in der Legende (die man ja auch ausblenden kann).

Und das hier ist meine Aufzeichnung aus Excel2000:

Code:

ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SeriesCollection(1).Select
ActiveChart.SeriesCollection(1).Points(1).Select
' With Selection.Border
' .Weight = xlThin
' .LineStyle = xlAutomatic
' End With
' Selection.Shadow = False
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Points(3).Select
' With Selection.Border
' .Weight = xlThin
' .LineStyle = xlAutomatic
' End With
' Selection.Shadow = False
With Selection.Interior
.ColorIndex = 44
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Points(2).Select
' With Selection.Border
' .Weight = xlThin
' .LineStyle = xlAutomatic
' End With
' Selection.Shadow = False
With Selection.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Reicht Dir das als Wegweiser?

hennerich · 25. Mai 2009

Hallo jinx,

vielen Dank für deinen Input.
Ich habe das Makro wie folgt geändert:
Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SM As Worksheet
Dim chDiagramm As Chart
Set SM = Worksheets("Service Monitor")
Set Target = SM.Range("B3:D3")
Set chDiagramm = ActiveSheet.ChartObjects("Diagramm 1").Chart

If Target Is Nothing Then
Exit Sub
Else
Select Case SM.Range("B3").Value
Case 1: With chDiagramm.SeriesCollection(1).Points(1)
With .Interior
.ColorIndex = (3) 'rot
.Pattern = xlSolid
End With
End With
Case 2: With chDiagramm.SeriesCollection(1).Points(1)
With .Interior
.ColorIndex = (44) 'gelb
.Pattern = xlSolid
End With
End With
Case 3: With chDiagramm.SeriesCollection(1).Points(1)
With .Interior
.ColorIndex = (10) 'grün
.Pattern = xlSolid
End With
End With
End Select
Select Case SM.Range("C3").Value
Case 1: With chDiagramm.SeriesCollection(1).Points(2)
With .Interior
.ColorIndex = (3) 'rot
.Pattern = xlSolid
End With
End With
Case 2: With chDiagramm.SeriesCollection(1).Points(2)
With .Interior
.ColorIndex = (44) 'gelb
.Pattern = xlSolid
End With
End With
Case 3: With chDiagramm.SeriesCollection(1).Points(2)
With .Interior
.ColorIndex = (10) 'grün
.Pattern = xlSolid
End With
End With
End Select
Select Case SM.Range("D3").Value
Case 1: With chDiagramm.SeriesCollection(1).Points(3)
With .Interior
.ColorIndex = (3) 'rot
.Pattern = xlSolid
End With
End With
Case 2: With chDiagramm.SeriesCollection(1).Points(3)
With .Interior
.ColorIndex = (44) 'gelb
.Pattern = xlSolid
End With
End With
Case 3: With chDiagramm.SeriesCollection(1).Points(3)
With .Interior
.ColorIndex = (10) 'grün
.Pattern = xlSolid
End With
End With
End Select
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Jetzt funktioniert es.

grüße
Henri

hennerich · 28. Mai 2009

Hallo jinx,

hab doch noch einmal eine Frage:
Wie stelle ich es an das im Target mehrere Bereiche von unterscheidlichen Sheets stehen.
Ich habe es so versucht:
Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim SM, Fin, As Worksheet
Dim chDiagramm As Chart
Set SM = Worksheets("Status")
Set Fin = Worksheets("Finanzen")
Set Target = Intersect(SM.Range("B3"), Fin.Range("B40"))
Set chDiagramm = SM.ChartObjects("Diagramm 1").Chart

If Target Is Nothing Then
Exit Sub
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke und Grüße
Henri

jinx · 28. Mai 2009

Moin, Henri,

meines Wissens ist eine Überschneidung in dem beabsichtigten Zusammenhang zwei-, nicht dreidimensional...

hennerich · 28. Mai 2009

Hallo jinx,

ok, mal anders gefragt. Was muss ich an meinem Code ändern um die Diagrammfarbe bei Änderung von Zellen anderer Tabellenblätter zu realisieren *mrcool ?

Danke und Grüße
Henri

hennerich · 3. Juni 2009

Hallo Community,

ich muss meinen Thread noch einmal pushen.

Die Anforderung:
Änderung der Diagrammfarbe auf Basis von Werten verschiedener Sheets (Formeln).

Das Problem:
Als Worksheet_Change Methode im jeweiligen Tabellenblatt funktioniert mein o.g. Code.
Wenn ich den aber in "DieseArbeitsmappe" verlagere und so darstelle:
Code:

Option Explicit

Private Sub Worksheet_SheetChange(ByVal Target As Range)
Dim SM, Fin As Worksheet
Dim chDiagramm As Chart
Set SM = Worksheets("Status")
Set Fin = Worksheets("Finanzen")
Set Target = Intersect(SM.Range("A1"), Fin.Range("A1))
Set chDiagramm = SM.ChartObjects("Diagramm 1").Chart

If Target Is Nothing Then
Exit Sub
Else
...
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

funktioniert es nicht. Leider komme ich mit jinx Ausführungen dazu nicht klar.
Vielleicht hat noch jemand eine Idee dazu.

Danke
Henri

IngGi · 4. Juni 2009

Hallo Henri,

die Kopfzeile deines Codes muss so heißen:
Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Generell ist es besser, die Kopfzeile eines Ereignismakros nicht von Hand zu schreiben, sondern über die beiden Dropdownfelder im VBE zu erzeugen. Übrigens ist deine Deklaration der Variablen SM falsch. Auf deine Weise wird die Variable als Variant-Variable deklariert. So ist's richtig:
Code:

Dim SM As Worksheet, Fin As Worksheet
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Ingolf

hennerich · 4. Juni 2009

Hallo Ingolf,

vielen Dank, das wusste ich nicht. Ich bezeichne mich eher als VBA Anfänger *wink.gif*
Ich habe das mal so umgesetzt, bekomme aber noch einen Laufzeitfehler bei Set Target = Intersect... Lasse ich das Set Target = SC.Range("A1") funktioniert es.
Code:

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim SC As Worksheet, Fin As Worksheet
Dim chDiagramm As Chart
Set SC = Worksheets("Status")
Set Fin = Worksheets("Finanzen")
Set Target = Intersect(SC.Range("A1"), Fin.Range("A1"))
Set chDiagramm = SC.ChartObjects("Diagramm 1").Chart

If Target Is Nothing Then
Exit Sub
Else
...
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke
Henri

Office: Diagramm Farbe ändern

Diagramm Farbe ändern

Diagramm Farbe ändern

Diagramm Farbe ändern

Diagramm Farbe ändern

Diagramm Farbe ändern - Similar Threads - Diagramm Farbe ändern

Fixierung der Farbe für eine Kategorie im Diagramm

Probleme mit Grafik Farbdesign

Gantt-Diagramm

Excel-Diagramm Fläche zwischen Gitternetzlinien abwechselnd färben

Ändern der Farben von Datenpunkten der gleichen Serie in einem Diagramm

Ändern der Farbe oder der Formatvorlage eines Diagramms in Office

Kann ich die Farben vom Diagramm ändern??