Punktdiagramm Datenreihe mit VBA entfernen
Ganna
Ich habe jetzt ein Punktdiagramm erstellt. Ich habe insgesamt 2 Datenreihen. Wie kann ich aus der folgenden Code 1.Datenreihe entfernen?
Sheets("Wertetabelle").Activate
ActiveSheet.UsedRange.ClearContents
Range("a1") = "Konzentrations- und Frachtentwicklung im Prognosezeitraum"
Range("a3") = "Jahr"
Range("b3") = "Konzentration cs2(t)"
Range("b4") = "(mikro_g/l)"
Range("c3") = "Fracht Es2(t)"
Range("c4") = "(g/a)"
Range("a4").Select
For i = 1 To imax
ActiveCell.Offset(i, 0) = konzfracht(i, 1)
ActiveCell.Offset(i, 1) = konzfracht(i, 2)
ActiveCell.Offset(i, 2) = konzfracht(i, 3)
Next i
Set Bereich = Range(Cells(5, 1), Cells(imax + 5, 3))
Application.DisplayAlerts = False
Charts.Delete
Charts.Add
ActiveChart.Name = "Konzentration"
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=Bereich, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Characters.Text = "Konzentration am OdB cs2(t)"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zeit(a)"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Konzentration cs2(t) (mikro_g/l)"
.HasLegend = False
End With