Diagramm (Gantt) automatisch einfärben
22.05.2016 19:31:35
Bjoern
ich möchte gerne ein Excel-Gantt-chart automatisch einfärben.
Das Gantt-chart wird für eine Autovermietung benötigt und soll die Leihzeiten visualisieren. In der Tabelle werden die Besetzt-Zeiten in Abhängigkeit der Kundenalters eingefärbt. Die Zellenfärbung soll den entsprechenden Balken im Diagramm einfärben, um sofort das Alter des Kunden zu erkennen.
Bislang habe ich ich nur normale Balkendiagramme mit dieser Formel autimatisch einfärben lassen. Leider bekomme ich diese Funktion nicht in ein Gantt-chart.
Mit diesem Code habe ich bislang gearbeitet, bei Balekndiagrammen fnktioniert er gut...
Sub AutimatischFaerben()
Dim intPunkt As Integer
With Charts("Diagramm1").SeriesCollection(1)
For intPunkt = 1 To .Points.Count
.Points(intPunkt).Interior.Color = _
Worksheets("Tabelle1").Cells(intPunkt + 1, 1).Interior.Color
Next intPunkt
End With
End Sub
https://www.herber.de/bbs/user/105721.xlsm
Ist das überhaupt möglich? Im Gantt-Diagramm zählt er die Series-collection nicht zeilenweise aus, sondern aus einem Bereich über Zeilen und Spalten.
Grüße