Kann ich dass auch kuerzer hinkriegen? Vielen Dank im Voraus
ActiveChart.SeriesCollection(1).Select With Selection.Interior .ColorIndex = 1 .Pattern = xlSolid End With
Hallo Martin!
Etwas kürzer und ohne Select!
With ActiveChart.SeriesCollection(1).Interior .ColorIndex = 1 .Pattern = xlSolid End With
Allerdings musst das Diagramm ausgewählt sein! Gruß Sepp