Diagrammfarbe
Thomas_H
Wie kann ich den u.a. Code vereinfachen bzw. auf einmal darstellen....
Sub Diagramm()
ActiveChart.SeriesCollection(1).Select
With Selection.Interior
.ColorIndex = 40
End With
ActiveChart.Deselect
End Sub
Danke für eure Hilfe, Thomas_H