habe folgendes Makro mit dem Rekorder aufgenommen:
Sub Partikelmessung()
Dim i As Integer
i = 1
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(i).Values = _
"=(Tabelle1!R2C13,Tabelle1!R2C15,Tabelle1!R2C17,Tabelle1!R2C19,Tabelle1!R2C21)"
ActiveChart.SeriesCollection(i).Name = "=Tabelle1!R2C1"
ActiveChart.SeriesCollection.NewSeries
i = i + 1
ActiveChart.SeriesCollection(i).Values = _
"=(Tabelle1!R3C13,Tabelle1!R3C15,Tabelle1!R3C17,Tabelle1!R3C19,Tabelle1!R3C21)"
ActiveChart.SeriesCollection(i).Name = "=Tabelle1!R3C1"
i = i + 1
'usw. usw., momentan müssen die Zeilen per Hand festgelegt werden
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Reinraumpartikel"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Partikelgröße"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Anzahl"
End With
End Sub
Bei dem fertigen Diagramm soll man die Start- und Endzeile der Datensätze des Diagramms per Button festlegen.
Leider schaffe ich es nicht, die Zeilen so mit einer Variable zu verknüpfen, dass die Werte wie gewünscht aus 5 Spalten gezogen werden.
ActiveChart.SeriesCollection(i).Values = _
"=(Tabelle1!R2C13,Tabelle1!R2C15,Tabelle1!R2C17,Tabelle1!R2C19,Tabelle1!R2C21)"
Würde mich freuen, wenn mir jemand aus der Patsche helfen könnte.
Grüßle,
André