Diagrammbalken färben

Hallo,
bin bei der Online-Suche auf Euer Forum gestoßen und hoffe ihr könnt mir helfen.
Ich habe ein gestapeltes Diagramm.
Auf der Y-Achse werden Monate dargestellt (Jan bis Dez).
Ich bräuchte nun ein Makro das folgendes macht:
Für Januar bis Dezember jeweils eine Zelle in einem anderen sheet der gleichen Mappe ansteuern,
dort gucken welcher Wert in der Zelle für den Monat steht und dann denn oberen Balken anders einfärben.
Ich möchte damit eine Art Ampelfunktion darstellen. Es sind drei Balken übereinander, damit kann ich rot, gelb und grün anzeigen. Der Rote soll allerdings in Abhängikeit dieses zusätzlichen Prüfwertes in der anderen Tabelle zunächst orange sein.
Klasse wäre ein Makro mit einigen Erklärungen, ich möchte auch verstehen was da vor sich geht, bzw. einen Anfang in VBA-Programmierung finden.
Ich habe es hoffentlich nicht zu kompliziert umschrieben. ;0)
Vorab Danke!
Christian

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub datenpunkte_faerben() Dim chDiagramm As Chart Dim inPunkt As Integer Set chDiagramm = Worksheets("Chart 2008").ChartObjects(1).Chart With chDiagramm For inPunkt = 1 To .SeriesCollection(3).Points.Count If Worksheets("Prüffeld").Cells(12, inPunkt + 1) = -1 Then .SeriesCollection(3).Points(inPunkt).Fill.ForeColor.SchemeColor = 3 Else .SeriesCollection(3).Points(inPunkt).Fill.ForeColor.SchemeColor = 46 End If Next inPunkt End With Set chDiagramm = Nothing End Sub

Hi Christian,
hier der Code noch einmal mit einigen Kommentaren, vielleicht wird da einiges klarer


Sub datenpunkte_faerben()
Dim chDiagramm As Chart ' Variable für das Diagramm als Objekt
Dim inPunkt As Integer  ' Schleifenzähler für Datenpunkte und Spaltennummer in "Prüffeld"
' Diagrammobjekt 1 des Tabellenblattes Chart 2008 auf die Variable schreiben
Set chDiagramm = Worksheets("Chart 2008").ChartObjects(1).Chart
' alles bezieht sich auf das Diagrammobjekt
With chDiagramm
' Schleife über alle Punkte der 3. Datenreihe
For inPunkt = 1 To .SeriesCollection(3).Points.Count
' inPunkt wird gleichzeitig als Spaltennummer verwendet, um im
' Tabellenblatt "Püffeld" in den Spalten B (2) bis M (12)
' der Zeile 12 zu prüfen, welcher Wert drin steht;
' steht -1 wird die Säule Rot gefärbt, andernfalls Orange
If Worksheets("Prüffeld").Cells(12, inPunkt + 1) = -1 Then
.SeriesCollection(3).Points(inPunkt).Fill.ForeColor.SchemeColor = 3
Else
.SeriesCollection(3).Points(inPunkt).Fill.ForeColor.SchemeColor = 46
End If
Next inPunkt
End With
' Variable leeren
Set chDiagramm = Nothing
End Sub

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Diagrammbalken färben

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread