XY-Diagramm
01.07.2008 10:13:24
Christoph
Bin leider der absolute neuling was VBA angeht und brauche unbedingt hilfe.
Ich möchte ein XY-Diagramm erstellen. Je nach eingabe sollen die Daten von einem anderen, neu erstellten Tabellenblatt mit dem Variablennamen MC geholt werden. Die schwierigkeit ist auch noch, dass die Länge der Datenreihe unterschiedlich sind.
Habe mir über diverse Seiten und dem Makro recorder einen Code zusammengezimmert. Nur leider kriege ich den einfach nicht zum laufen...
Laufzeitfahler 9 Index auserhalb des gültigen Bereichs
'Diagramm erstellen
ZeileMax = Sheets(MC).Range("A65536").End(xlUp).Row
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=Sheets(MC).Range(Sheets(MC).Cells(1, 24), Sheets(MC).Cells(ZeileMax, 28)), _
PlotBy:=xlColumns
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "'MC" & "='!C24"
ActiveChart.SeriesCollection(1).Values = "'MC" & "='!C25"
ActiveChart.SeriesCollection(1).Name = "=""Spindelspiel X"""
ActiveChart.SeriesCollection(2).XValues = "'MC" & "='!C27"
ActiveChart.SeriesCollection(2).Values = "'MC" & "='!C28"
ActiveChart.SeriesCollection(2).Name = "=""Spindelspiel Z"""
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=("Diagramm" & MC)
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Spindelspiel"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Betriebsstunden"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Spindelspiel in um"
End With
Denke das Problem liegt bei den Values, denn wenn ich anstatt MC den Namen des Blattes hinschreibe funktioniert das Makro wie es soll.
Bin um jede Hilfe froh...vielen dank :)