Ich habe ein Problem mit einem Code, dem ich aus dem Forum bekommen habe (Vielen Dank nochmal).Den habe ich etwas angepasst und meiner Meinung nach müsste er funktionieren, aber leider ist VB da anderer Meinung.
Ziel des Codes ist, dass mit Hilfe einer Steuerelemente Toolbox ein Zeitpunkt bestimmt wird. 24 Monate vor diesem Zeitpunkt und 3 Monate danach sollen dann die Kosten-Daten aus der Datenquelle in der Mappe Grafische Darstellung mit Hilfe eines Diagramms dargestellt werden.
Sub Test()
S = Workbooks("Datenquelle.xls").Sheets("Kosten").Range("A1").Value
S = S - 24
If S < 1 Then S = 1
Workbooks("Grafische Darstellung.xls"). _
Sheets("Diagramm1"). _
SetSourceData Source:=Workbooks("Datenquelle.xls"). _
Sheets("Kosten").Range(Cells(S, 5), Cells(S + 27, 7)), PlotBy:=xlColumns
Workbooks("Grafische Darstellung.xls"). _
Sheets("Diagramm1"). _
SeriesCollection(1).XValues = "='[Datenquelle.xls]Kosten'!R&S&C1:R&S+27&C1"
Workbooks("Grafische Darstellung.xls"). _
Sheets("Diagramm1").Activate
End Sub
In der 8. Zeile des Codes taucht immer eine Fehlermeldung auf: Die Methode ´Cells´ für das Oblekt ´_Global´ ist fehlgeschlagen. Alternativ hatte ich auch überlegt den Datenbereich so zu benennen: Range("R&S&C5:R&S+27&C7") aber leider ist der erhoffte Erfolg nicht eingetreten.
Vielleicht fällt Euch beim überlesen ja der Fehler auf.
Vielen Dank schon mal im Voraus!
Grüße Tom