Diagramm aus variablen Datenreihen zeichnen
12.12.2005 13:56:47
Thias
Ich habe mir mittels Makrorecorder untenstehende Befehlsfolge aufgenommen, um aus einer Datenreihe ein Diagramm zu erstellen. Ich hatte eigentlich gehofft, dass ich mittels der Funktion xlDown immer das Ende der Datenreihe erwische, doch leider wird das Diagramm dann mittels des "echten" Endwertes der Datenreihe gezeichnet (hier B6137).
Mein Problem: Die Datenreihe ist jedesmal unterschiedlich lang, so dass ich den Bereich .Range("B11:B6137") gerne derart variabel gestalten würde, dass jedesmal auch die korrekte Anzahl an Messwerten dargestellt wird. Denn mal kann das Ende bei 6800 liegen, mal auch schon bei 5500. Demenstprechend würden nun beim Ausführen des Makro's ja entweder zuviele oder zu wenig Daten in das Diagramm gezeichnet.
Kann mir evtl. jemand helfen, den zu zeichenenden Bereich variabel zu gestalten, so dass immer die korrekte Anzahl an Daten im Diagramm gezeichnet wird?
Gruß Thias
------------------------------------------------------------------------------
Sub KG_Diagramm()
Range("B11").Select
Range(Selection, Selection.End(xlDown)).Select
Charts.Add
ActiveChart.ChartType = xlXYScatterLinesNoMarkers
ActiveChart.SetSourceData Source:=Sheets("Rohdaten geordnet").Range( _
"B11:B6137"), PlotBy:=xlColumns
ActiveChart.Location Where:=xlLocationAsObject, Name:="Rohdaten geordnet"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Messpkt. Nr."
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "KG Signal / mV"
End With
ActiveChart.HasLegend = False
End Sub