Fehlermeldung bei Makro
01.10.2004 11:52:16
Tom
ich habe ein Makro aufgezeichnet und mit zwei Variablen verändert. Leider funktioniert es jetzt nicht mehr und ich kann mit der Fehlermeldung nicht wirklich etwas anfangen. Das Makro sieht, wie folgend aus:
Sub GrafikMakro()
Dim D As Double
Dim E As Double
D = Workbooks("Kennzahlen_Grafik.xls").Sheets("Kennzahlen-Grafik").Range("A1").Value - 24
If D < 1 Then D = 1
E = D + 27
Sheets("Kennzahlen-Grafik").Select
ActiveSheet.ChartObjects("Diagramm 7").Activate
ActiveChart.PlotArea.Select
ActiveChart.SeriesCollection(1).XValues = _
"='[Kennzahlen gemittelt_Aktuell_Neu.xls]Kosten'!RDC1:REC1"
ActiveChart.SeriesCollection(1).Values = _
"='[Kennzahlen gemittelt_Aktuell_Neu.xls]Kosten'!RDC5:REC5"
ActiveChart.SeriesCollection(2).XValues = _
"='[Kennzahlen gemittelt_Aktuell_Neu.xls]Kosten'!RDC1:REC1"
ActiveChart.SeriesCollection(2).Values = _
"='[Kennzahlen gemittelt_Aktuell_Neu.xls]Kosten'!RDC6:REC6"
ActiveChart.SeriesCollection(3).XValues = _
"='[Kennzahlen gemittelt_Aktuell_Neu.xls]Kosten'!RDC1:REC1"
ActiveChart.SeriesCollection(3).Values = _
"='[Kennzahlen gemittelt_Aktuell_Neu.xls]Kosten'!RDC7:RDC7"
ActiveChart.ChartArea.Select
ActiveWindow.Visible = False
Windows("Kennzahlen_GrafikBericht.xls").Activate
Range("A1").Select
End Sub
Die Variablen D und E sollen einen variablen Datenbereich darstellen, der 24 Monate vor dem Berichtsmonat ist und 3 Monate nach dem Berichtsmonat. Der Berichtsmonat wird über eine Drop-Down-Toolbox dargestellt.
Der Fehelerbericht ist folgender: 'Laufzeitfehler 91' Objektvariable oder With-Blockvariable nicht festgelegt.
Für ein Hinweis wäre ich sehr dankbar.
Gruß Tom