Hallo User,
ich habe ein mittelgroßes Problem. Ich würde gerne mehrer gleichlange Spalten eines Tabellenblattes in ein eigenes Excel-Diagrammblatt übertragen und dort als Graphen darstellen. Leider entstehen bei meinem Ansatz Laufzeitfehler oder sonstwas. Zusätzlich sollen die Spaltenköpfe als Datenreihennamen dienen und das Diagramm durch Minimumwerte und Maximumwerte auf der y-Achse begrenzt werden. Das große Problem ist glaube ich die Übertragung aus dem Arbeitsblatt ins eigene Diagrammblatt.
Folgender Ansatz, innerhlb eines Codes einer userform, der mir ermöglicht unterschiedlich viele Spalten einzulesen existiert. Bitte helft mir weiter !
Dim o As Integer
Dim s As Integer
'Vorgeben der Namen der einzelnen Graphen, Spalten beginnen ab Index 10
'Namen der Datenreihen sind in Zeile 7
For o = 10 To Worksheets("Berechnungen").Cells(7, Columns.Count).End(xlToLeft).Column
Sheets("Dia_City").SeriesCollection(o - 9).Name = Worksheets("Berechnungen").Cells(7, o)
'Jetzt werden die x_achse und Y-Achse vorgegeben
Sheets("Dia_City").SeriesCollection(o - 9).XValues = _
Range(Worksheets("Berechnungen").Cells(8, 9), Worksheets("Berechnungen").Cells(8 + monate, 9)).Value
Sheets("Dia_City").SeriesCollection(o - 9).Values _
= Range(Worksheets("Berechnungen").Cells(8, 10 + o - 9), Worksheets("Berechnungen").Cells(8 + monate, 10 + o - 9)).Value
Next o
Sheets("Dia_City").Axes(xlValue).MinimumScale = Application.WorksheetFunction.Min(Worksheets("Berechnungen").Range(Cells(41, 7), Cells(60, 7))) - 0.05
Sheets("Dia_City").Axes(xlValue).MaximumScale = Application.WorksheetFunction.Max(Worksheets("Berechnungen").Range(Cells(41, 8), Cells(60, 8))) + 0.05