Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen

Erstellen einer weiteren Graphik aus Wertetabelle | Herbers Excel-Forum


Betrifft: Erstellen einer weiteren Graphik aus Wertetabelle von: Ganna
Geschrieben am: 12.11.2009 11:31:48

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

  

Betrifft: AW: Erstellen einer weiteren Graphik aus Wertetabelle von: Jens
Geschrieben am: 12.11.2009 12:09:45

Hallo Ganna

siehe hier: https://www.herber.de/forum/messages/1116395.html

Gruß aus dem Sauerland

Jens


  

Betrifft: AW: Erstellen einer weiteren Graphik aus Wertetabelle von: Ganna
Geschrieben am: 12.11.2009 13:22:25

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


  

Betrifft: AW: Erstellen einer weiteren Graphik aus Wertetabelle von: Jens
Geschrieben am: 12.11.2009 22:35:41

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


Beiträge aus den Excel-Beispielen zum Thema "Erstellen einer weiteren Graphik aus Wertetabelle"