Habe mir ein Makro zur Erstellung von Kreischart erstellt. Dann hab ich nochmal ein Minimakro zur Einfärbung der Segmente geschrieben, leider variiert die Anzahl der Segmente in den Kreischarts.
Hab versucht eine If-then-Else Anweisung zu schreiben aber das geht nett :-(((
Ich sag schon jetzt ganz lieb Danke für einen guten Tip.
Hier ist der Code für die Segmenteinfärbung, ab den Sternchen ist der Wurm drin:
Sub SegmentFarben()
ActiveChart.SeriesCollection(1).Points(1).Select
With Selection.Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Points(2).Select
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Points(3).Select
With Selection.Interior
.ColorIndex = 37
.Pattern = xlSolid
End With
ActiveChart.SeriesCollection(1).Points(4).Select
With Selection.Interior
.ColorIndex = 42
.Pattern = xlSolid
End With
******************* Das geht leider nicht :-( *****************
If ActiveChart.SeriesCollection(1).Points(5) Is Nothing Then
Else
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
End If
End Sub