Ich muss 48 Diagramme erstellen. Dazu habe ich ertsmal dieses Makro aufgezeichnet und wollte es modifieren. Das Problem ist das es nicht möglich ist R7Cn laufen zulassen. siehe auch die unterschiedlichsten Versuche. Habt ihr einen Tip??
For n = 0 To 48
Charts.Add
ActiveChart.ChartType = xlLineStacked
ActiveChart.SetSourceData Source:=Sheets("Grafik").Range("C36")
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Values = "=DatenV1!R7C(n) :R2007$C(n) "
ActiveChart.SeriesCollection(1).Name = "=DatenV1!R1C2"
ActiveChart.SeriesCollection(2).Values = "=DatenV2!R7C3+n:R2007C3+n"
ActiveChart.SeriesCollection(2).Name = "=DatenV2!R1C2"
ActiveChart.SeriesCollection(3).Values = "=DatenV3!R7C3:R2007C3+n"
ActiveChart.SeriesCollection(3).Name = "=DatenV3!R1C2"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Values = "=DatenV4!R7C3+n:R2007C3+n"
ActiveChart.SeriesCollection(4).Name = "=DatenV4!R1C2"
ActiveChart.SeriesCollection(5).Values = "=DatenV5!R7C3+n:R2007C3+n"
ActiveChart.SeriesCollection(5).Name = "=DatenV5!R1C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Grafik"
ActiveChart.HasDataTable = False
ActiveWindow.Visible = False
Windows("GrafikzurErstellung.xls").Activate
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Sensor(n)"
End With
Next n
End Sub
Gruss Dennis