Microsoft Excel

Herbers Excel/VBA-Archiv

Punktdiagramm Datenreihe mit VBA entfernen | Herbers Excel-Forum


Betrifft: Punktdiagramm Datenreihe mit VBA entfernen von: Ganna
Geschrieben am: 19.11.2009 12:36:07

Hallo,

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

  

Betrifft: AW: Punktdiagramm Datenreihe mit VBA entfernen von: Ganna
Geschrieben am: 19.11.2009 12:54:32

Habe selbst rausgefunden.Man muss mit folgendem Ausdruck ergenzen.

.SeriesCollection(1).Delete


Beiträge aus den Excel-Beispielen zum Thema "Punktdiagramm Datenreihe mit VBA entfernen"