Ich möchte gerne meine Diagramm abhängig von der obenstehenden Berechnung als punkte einfügen
wäre froh wenn mir jemand helfen könnte
Sub Dampfdruck_zeichnen()
'
' Dampfdruck_zeichnen Makro
'
'
Dim i As Integer
For i = 8914 To 8915 + Range("D11") - 1
Cells(i, 43).GoalSeek Goal:=(i - 8914), ChangingCell:=Cells(i, 41)
Next i
A = ActiveSheet.ChartObjects("Diagramm 1").Chart.SeriesCollection.Count + 1
g = 8914 + Range("D11")
D = Cells(g, 45)
E = Cells(g, 39)
F = Cells(g, 43)
ActiveSheet.ChartObjects("Diagramm 1").Activate
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
ActiveChart.SeriesCollection.NewSeries
ActiveChart.FullSeriesCollection(A).Name = Range("(AQ8914):Cells(g, 45)")
ActiveChart.FullSeriesCollection(A).XValues = Range("AS8914:D")
ActiveChart.FullSeriesCollection(A).Values = "Cells(8914,39):f"
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.FullSeriesCollection(A).Select
With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 0, 0)
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 1.25
End With
With Selection.Format.Line
.Visible = msoTrue
.DashStyle = msoLineDash
End With
End Sub
|