ich habe folgends Marko geschrieben, dass zwei Diagramm vergleichen soll, und wenn 2 Datenbukte den gleichen Namen haben, dann sollen beide gleich gefärbt werden. Doch wenn ich dieses Makro ablaufen lasse, kommt die Meldung, dass das Objekt die Methode nicht unterstüzt.
Wo liegt mein Fehler?
Sub Färben()
Dim y As Integer
Dim chDiagramm1 As Chart
Dim chDiagramm2 As Chart
Set chDiagramm1 = ActiveSheet.ChartObjects(1).Chart
Set chDiagramm2 = ActiveSheet.ChartObjects(2).Chart
For y = 1 To 10
If chDiagramm1.SeriesCollection(1).Points(1) = chDiagramm2.SeriesCollection(1).Points(y) _
Then chDiagramm1.SeriesCollection(1).Points(1).Interior.ColorIndex = 8
Next y
End Sub
Gruß
Thomas