ich bin gerade dabei ein Makro zu erstellen, dass auch ein Diagramm einfügt. Nun stehe ich vor dem Problem, dass ich 2 Kurven einfügen möchte. Eine bekomme ich ohne Probleme hin, aber bei der zweiten muss ich etwas falsch machen, da hagelt es Fehlermeldungen oder komische Kurven. Wie kann ich in den folgenden Code (oder in einen leicht abgewandelten) eine zweite Kurve in dasselbe Diagramm einbringen?
Über eine Antwort freue ich mich sehr.
LG
Monika
'Diagramm Kraft-Verlängerungsdiagramm erstellen
Range("P3").Select()
ActiveSheet.Shapes.AddChart2(240, xlXYScatterSmoothNoMarkers).Select()
ActiveChart.SeriesCollection.NewSeries()
'Erstellen Kurve "Längenänderung". Auswahl der Werte Beginn bei Kraft 5 N, Ende am Ende der Werte
ActiveChart.FullSeriesCollection(1).Name = _
"=""Längenänderung fein"""
ActiveChart.FullSeriesCollection(1).XValues = _
ActiveSheet.Range("F" & Range("O16").Value & ":F" & Range("O17").Value)
ActiveChart.FullSeriesCollection(1).Values = _
ActiveSheet.Range("D" & Range("O16").Value & ":D" & Range("O17").Value)
With ActiveChart
.HasLegend = True 'Legende hinzufügen
.HasTitle = True 'Titel
.ChartTitle.Characters.Text = "Kraft-Verlängerungs-Diagramm"
.Axes(xlCategory, xlPrimary).HasTitle = True 'x-Achsenbeschriftung
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Längenänderung [mm]"
.Axes(xlValue, xlPrimary).HasTitle = True 'y-Achsenbeschriftung
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Kraft genullt [N]"
End With