Diagrammbereich per VBA anpassen
15.01.2016 12:43:28
Markus
Folgendes Problem:
Ich habe 40 Diagramme mit je 2 Datenreihen, alle nach folgendem Code benannt:
Private Sub rename()
K = 1
If ChartObjects.Count Sub DiagRange()
spalte = 11
For K = 1 To 40
ChartObjects("diag_" & K).Activate
ActiveChart.SeriesCollection(1).XValues = Range(Cells(8, spalte), Cells(3008, spalte))
ActiveChart.SeriesCollection(1).Values = Range(Cells(8, spalte+1), Cells(3008, spalte+1))
spalte = spalte + 2
ActiveChart.SeriesCollection(2).XValues = Range(Cells(8, spalte), Cells(3008, spalte))
ActiveChart.SeriesCollection(2).Values = Range(Cells(8, spalte+1), Cells(3008, spalte+1))
spalte = spalte + 2
Next I
End Sub