Re: SeriesCollection mit VBA
04.12.2002 10:56:55
Melli
Na klar kein Thema......' X-Werte festlegen
bereich_dat = Cells(anfangsZeile, spalte_datum).Address & ":" & Cells(anzahlZeilen, spalte_datum).Address
' Y-Werte der ersten Linie
bereich_vist = Cells(anfangsZeile, spalte_ebit_vist).Address & ":" & Cells(anzahlZeilen, spalte_ebit_vist).Address
' Y-Werte der zweiten Linie
bereich_real = Cells(anfangsZeile, spalte_ebit_real).Address & ":" & Cells(anzahlZeilen, spalte_ebit_real).Address
' Leerer Bereich
bereich_leer = Cells(anfangsZeile, leere_spalte).Address & ":" & Cells(anzahlZeilen, leere_spalte).Address
......
' neues Diagramm anlegen
Charts.Add After:=Worksheets(probezeichnung)
' Alte Diagrammdaten löschen
ActiveChart.ChartArea.ClearContents
With ActiveChart
.Name = chartName + probezeichnung
.ChartType = xlLineMarkers
.SeriesCollection.NewSeries
.SeriesCollection(vist_series).XValues = Sheets(probezeichnung).Range(bereich_dat)
.SeriesCollection(vist_series).Values = Sheets(probezeichnung).Range(bereich_vist)
.SeriesCollection(vist_series).Name = vist_name
.SeriesCollection.NewSeries
.SeriesCollection(real_series).Values = Sheets(probezeichnung).Range(bereich_real)
.SeriesCollection(real_series).Name = real_name
.SeriesCollection.NewSeries
.SeriesCollection(ziel_series).ChartType = xlColumnClustered
.SeriesCollection(ziel_series).Values = Sheets(probezeichnung).Range(bereich_leer)
........
so und das ist das notwendige. Und mein Problem ist, dass ich nicht weiß, wie ich diese eine notwendige mit Inhalt gefüllte Zelle den Values der SeriesCollektion(ziel_series) zuweise.
Ich hoffe, ich konnte mein Problem deutlich machen... Hilf mir bitte!!!!!!!!