Makro zum rollieren vom Diagramm

Hallo,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

'Eingabe über Spinbutton Private Sub SpinButton1_Change() Dim rZelle1 As Range, rZelle2 As Range, rFilter As Range Set rZelle1 = Tabelle2.Range("E1") 'Von Set rZelle2 = Tabelle2.Range("G1") 'Bis Set rFilter = Tabelle1.Range("A:B") 'Zu filternder Bereich If IsDate(rZelle1) And IsDate(rZelle2) Then _ rFilter.AutoFilter Field:=1, Criteria1:=">=" & CSng(rZelle1), Operator:=xlAnd, _ Criteria2:="=" & CSng(rZelle1), Operator:=xlAnd If IsDate(rZelle1) = False And IsDate(rZelle2) = False Then _ Tabelle1.ShowAllData End Sub 'Händige Eingabe in Zelle Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("E1,G1")) Is Nothing Then SpinButton1_Change End Sub

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro zum rollieren vom Diagramm

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread