Office: Hilfe - Makroerror:Unable to get the ChartObjects property..

Hallo Zusammen,

ich habe ein Makro geschrieben, mit dem ich die Farbe der einzelnen "Reihen" in einem Diagramm aendern kann.

Es hat auch alles bis jetzt super funktioniert. Seit neuestem bekomme ich den

Error: Unable to get the ChartObjects property of the Worksheet class

Hier ein Auszug aus dem Makro... Weiss jemand woran das liegen koennte???

Sub Diagrammfarbe_ändern()

'Diagramm_Änderungsscheine

ActiveSheet.ChartObjects("Diagramm 4").Activate

' hier bricht er gleich ab

ActiveChart.SeriesCollection(1).Select
With selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
selection.Shadow = False
selection.InvertIfNegative = False
With selection.Interior
.ColorIndex = 21 ' Farbaenderung
.Pattern = xlSolid
End With

Danke euch schon mal

Martin

 

Re: Hilfe - Makroerror:Unable to get the ChartObjects proper

matn:
> ActiveSheet.ChartObjects("Diagramm 4").Activate
> hier bricht er gleich ab

Bist Du sicher, daß das Sheet mit dem Diagramm wirklich das aktive Sheet ist?

Ev. hilft ein

Code:

worksheets(diagrammsheet).activate

direkt eine Zeile vorher...

Gruß, Michael