ich habe auf einem Tabellenblatt (RendVola_01) ein Basisdiagramm (xy) erstellt. Reihe 1 (SeriesCollection(1)) enthält x und y-Werte von ca. 10.000 Fonds. Reihe 2 (SeriesCollection(2)) enthält die x und y-Werte eines bestimmten Fonds. Die Werte der Fonds befinden sich auf dem Tabellenbaltt, welches in der Variablen Peergroup gespeichert ist.
Ich möchte gerne 10 verschiedene Diagramme erstellen, wobei jedes Diagramm als gif-Datei gespeichert werden soll. Das erste Diagramm wird erstelt und gespeichert und beim zweiten Diagramm bricht das Makro mit einer Fehglermeldung ab: Methode SeriesCollection fehlgeschlagen. Grund: im Dagramm befindet sich nur noch eine Reihe, die zweite wurde gelöscht.
Wo liegt der Fehler?
Sub Diagramm()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
' Variablen deklarieren
Dim Peergroup As String
Dim Fondszeile As Long
Dim cht As Chart
Dim rng As Range
Dim Dateiname As String
Dim X As Byte
' Rendite/Vola-Diagramme
Peergroup = ActiveSheet.Name
Fondszeile = ActiveCell.Row
For X = 0 To 9
Set cht = Worksheets("RendVola_01").ChartObjects(1).Chart
' Parameter für Reihe 1 - Peergroup
Set rng = Sheets(Peergroup).Range("FM7:FM10000").Offset(0, X)
cht.SeriesCollection(1).XValues = rng
Set rng = Sheets(Peergroup).Range("ES7:ES10000").Offset(0, X)
cht.SeriesCollection(1).Values = rng
' Parameter für Reihe 2 - Fonds
Set rng = Sheets(Peergroup).Range("FM" & Fondszeile).Offset(0, X)
cht.SeriesCollection(2).XValues = rng
Set rng = Sheets(Peergroup).Range("ES" & Fondszeile).Offset(0, X)
cht.SeriesCollection(2).Values = rng
'Diagramm als Grafik speichen, wird für Userform benötigt
Dateiname = ThisWorkbook.Path & Application.PathSeparator & "diagramm" & X & ".gif"
cht.Export Filename:=Dateiname, FilterName:="GIF"
Set cht = Nothing
Set rng = Nothing
Next X
Sheets(Peergroup).Activate
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Grüße
Norbert