ich habe ein paar Probleme mit einem Makro.
Ich möchte mit einem Makro ein Diagramm einen Tag vor oder Rückwärts rollieren lassen.
Es werden immer Daten von 7 Tagen angezeigt. z.B. 6.9 - 12.9
Nun habe ich 2 Button erstellt. Vor und Zurück. Wenn ich z.B. auf vor drücke soll das Diagramm dann einen Tag weiter springen. (7.9 - 13.)
Bei zurück natürlich in die andere Richtung.
Habe folgenden Code probiert,(der hat in einer anderen Mappe schon funktioniert)
Sub Chart_minus_Montage()
Dim start As Integer
Dim Ende As Integer
Dim StartVorher As Integer
Dim EndeVorher As Integer
Dim Diese_Datei_Name As String
StartVorher = Sheets("Tabelle 3").Range("B2")
EndeVorher = Sheets("Tabelle 3").Range("B3")
If StartVorher = 4 Then Exit Sub
start = StartVorher - 1
Ende = EndeVorher - 1
Diese_Datei_Name = ThisWorkbook.Name
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SetSourceData Source:=Sheets("Montage 2").Range("I" & start & ":L" & Ende)
ActiveChart.SeriesCollection(1).Name = "='Montage 2'!$J$8"
ActiveChart.SeriesCollection(2).Name = "='Montage 2'!$K$8"
ActiveChart.SeriesCollection(3).Name = "='Montage 2'!$L$8"
ActiveWindow.Visible = False
Windows(Diese_Datei_Name).Activate
Range("A1").Select
Sheets("Tabelle 3").Range("B2") = start
Sheets("Tabelle 3").Range("B3") = Ende
End Sub
Sub Chart_plus_Montage()
Dim start As Integer
Dim Ende As Integer
Dim StartVorher As Integer
Dim EndeVorher As Integer
Dim Diese_Datei_Name As String
StartVorher = Sheets("Tabelle 3").Range("B2")
EndeVorher = Sheets("Tabelle 3").Range("b3")
start = StartVorher + 1
Ende = EndeVorher + 1
Diese_Datei_Name = ThisWorkbook.Name
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.Axes(xlValue).MajorGridlines.Select
ActiveChart.SetSourceData Source:=Sheets("Montage 1").Range("I" & start & ":L" & Ende)
ActiveChart.SeriesCollection(1).Name = "='Montage 1'!$J$7"
ActiveChart.SeriesCollection(2).Name = "='Montage 1'!$K$7"
ActiveChart.SeriesCollection(3).Name = "='Montage 1'!$L$7"
ActiveWindow.Visible = False
Windows(Diese_Datei_Name).Activate
Range("A1").Select
Sheets("Tabelle 3").Range("B2") = start
Sheets("Tabelle 3").Range("B3") = Ende
End Sub
Bei dem Minus Code kommt dauernd Fehler 1004 Anwendungs oder Objektdefinierter Fehler.Bei dem Plus Code kommt dauernd Fehler 1004 Ungültiger Parameter.
Hat jemand eine Idee?
Danke schonmal im voraus