Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Erstellen einer weiteren Graphik aus Wertetabelle

Erstellen einer weiteren Graphik aus Wertetabelle
Ganna
Hallo,
nachdem ich nach der Berechnung eine Wetetabelle bekomme und mit 1. und 2. Spalte eine Graphik erstelle, möchte ich nun einen weitern Graph aus dieser Tabelle als Zusatzdiagrammblatt mit 1. und 3. Spalte erstellen. Habe ein Teil noch mal kopiert und statt 2 die 3 geschrieben, sowie Graphik die Fracht. Bekomme Laufzeitfehler 1004 in der fettmarkierten Zeile.
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, 2))
Application.DisplayAlerts = False
Charts.Delete
Charts.Add
ActiveChart.Name = "Graphik"
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
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 600, 45, 0, 0).TextFrame.Characters.Text = proj
Application.DisplayAlerts = True
Set Bereich = Range(Cells(5, 1), Cells(imax + 5, 3))
Application.DisplayAlerts = False
Charts.Delete
Charts.Add
ActiveChart.Name = "Fracht"
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
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 600, 45, 0, 0).TextFrame.Characters.Text = proj
Application.DisplayAlerts = True

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Erstellen einer weiteren Graphik aus Wertetabelle
12.11.2009 13:22:25
Ganna
Hallo Jens,
vielen dank. Das hat fast geholfen. Ich bekomme zwar die Graphik, aber mit 2 Datenreihen. Wie bekomme ich nur die 1. und 3. Spalte raus. Die neu kode ist jetzt:
With Sheets("Wertetabelle")
Set Bereich = .Range(.Cells(5, 1), .Cells(imax + 5, 3))
Application.DisplayAlerts = False
Charts.Add
ActiveChart.Name = "Fracht"
With ActiveChart
.ChartType = xlXYScatter
.SetSourceData Source:=Bereich, PlotBy:=xlColumns
.HasTitle = True
.ChartTitle.Characters.Text = "Fracht Es2(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 = _
" Farcht Es2(t)(g/l) "
.HasLegend = False
End With
End With
ActiveChart.Shapes.AddLabel(msoTextOrientationHorizontal, 600, 45, 0, 0).TextFrame.Characters.Text = proj
Application.DisplayAlerts = True
Anzeige
AW: Erstellen einer weiteren Graphik aus Wertetabelle
12.11.2009 22:35:41
Jens
Hallo Ganna
Was meinst Du mit
Wie bekomme ich nur die 1. und 3. Spalte raus.
Willst Du nur die Datenaus der 1. und 3. Spalte haben, oder die Daten aus der 1. und 3. Spalte nicht?
Gruß aus dem Sauerland
Jens

326 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige