Automatisiert Diagramm befüllen
30.06.2020 16:28:49
Martin
ich habe folgendes Problem. Ich würde gerne die Daten für mein Diagramm automatisch erfassen. Die Anzahl der Daten ist variable und der Abstand der Daten entspricht jeweils 12 Zeilen.
Besteht die Möglichkeit die Range über eine for Schleife zu befüllen?
z.B.
For i=14 to (Anzahl_Einträge*12-14)
Dim zs as string
zs="S"+Cstr(i)
ActiveChart.SetSourceData Source:=Range("'989'! zs")
i=i+11
Next
Ein Skript um die Anzahl der Einträge zu bestimmen habe ich bereits, allerdings ist dies noch nicht eingebunden.
Das aufgezeichnete Makro der fertigen Tabelle sieht wie folgt aus:
Sub Makro1()
ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select
ActiveChart.SetSourceData Source:=Range( _
"'989'!$S$14,'989'!$S$26,'989'!$S$38,'989'!$S$50,'989'!$S$62,'989'!$S$74,'989'!$S$86,' _
_
_
989'!$S$98,'989'!$S$110")
ActiveSheet.Shapes("Diagramm 1").ScaleWidth 1.6507937445, msoFalse, _
msoScaleFromTopLeft
ActiveSheet.Shapes("Diagramm 1").ScaleHeight 1.6367392097, msoFalse, _
msoScaleFromBottomRight
ActiveChart.PlotArea.Select
ActiveChart.Axes(xlCategory).Select
ActiveChart.FullSeriesCollection(1).Select
ActiveChart.FullSeriesCollection(1).XValues = _
"='989'!$A$14:$C$14,'989'!$A$26:$C$26,'989'!$A$38:$C$38,'989'!$A$50:$C$50,'989'!$A$62:$ _
_
_
C$62,'989'!$A$74:$C$74,'989'!$A$86:$C$86,'989'!$A$98:$C$98,'989'!$A$110:$C$110"
End Sub
Vielen Dank im Voraus