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