vor kurzen gab es schon einmal ein Problem mit Drehfeldern und damit einhergehenden variablen Rubrikenachsen. Ich habe folgende Lösung angewendet:
Sub DatenBereich_var()
Dim es%, ls%, xv, dQu
On Error Resume Next
With Sheets("Kurve")
es = .[ak25].Value
ls = .[ad25].Value
Set dQu = .Range(Range(Cells(29, es), Cells(29, ls)).Address & "," & _
.Range(Cells(32, es), Cells(32, ls)).Address)
Set xv = .Range(Cells(28, es), Cells(28, ls))
With .ChartObjects(1).Chart
.SetSourceData Source:=dQu, PlotBy:=xlRows
.SeriesCollection(1).XValues = xv
End With
End With
Application.SendKeys "{esc}"
End Sub
https://www.herber.de/bbs/user/26006.xls
Diese Lösung funktioniert auch super.
Leider habe ich jetzt das Problem, dass mein Diagramm (auch die Spinbutton)in einem anderen Arbeitsblatt steht(muss)als die Daten.Ich habe schon versucht den Code mit worksheets("Arbeitsblattname") anzupassen nur funktioniert dies nicht.
Dann habe ich noch weitere Fragen:
Ist es möglich mit Drehfeldern mehrere Diagrammme (wenn ich mich nicht entscheiden kann, welches ich nehmen möchte)anzusteuern? Wie geht das?
Und kann ich mit mehreren Drehfeldern die mehrer Datenreihen in einem Diagramm steuern? Z.B. wenn ich Monatswerte (X-Achse: Jan ...Dez.) über Jahre (Graph von 2002, 2003, ...) vergleichen möchte.
Leider weiß ich nicht wie ich Grafiken einfügen kann, dann würde es vielleicht leichter ersichtlich sein was ich meine.
Trotzdem, schnon mal jetzt vielen Dank für eure Mühe!
Sven