Diagrammbalken einfärben
16.01.2008 09:03:56
R.
ich versuche mit dem nachstehenden Makro die Diagrammbalken unterschiedlich einzufärben. Ich habe eine Grundfarbe für die Balken und entsprechend einem bestimmten Wert in einer Zelle soll eine bestimmte Anzahl von Balken anders gefärbt werden. Die Anzahl der anders gefärbten Balken kommt aus der Zelle i1. Leider bekomme ich dabei im den Fehler "Typen unverträglich" und bin mittlerweile ratlos.
Hier das Makro:
Sub Einfaerben()
' Für Ärzte eine andere Farbe wählen
' Makro am 14.08.2000 von Rudolf Loibl aufgezeichnet
ActiveChart.SeriesCollection(2).Select
With Selection.Interior
.ColorIndex = 34
End With
ActiveChart.SeriesCollection(4).Select
With Selection.Interior
.ColorIndex = 34
End With
i = [i1]
'Sheets("Allgemeines").[c8]
'ersten Datenpunkt einfärben
For y = 1 To i
ActiveChart.SeriesCollection(2).Points(i).Select
With Selection.Interior
.ColorIndex = 8
End With
'Zweiten Datenpunkt einfärben
ActiveChart.SeriesCollection(4).Points(i).Select
With Selection.Interior
.ColorIndex = 8
End With
Next y
ActiveChart.Deselect
End Sub
Hat jemand eine Idee, an was das liegen kann?
Danke
Rudi