Hallo Leute,

ich bin hier gerade etwas am verzweifeln. Meine VBA Kentnisse sind ehr schlecht als recht und ich scheitere an folgendem Problem:
Ich habe massig verschieden Messwerte über einen Zeitraum. Dieser ist frei wählbar und anschließend soll der User per Checkboxen entscheiden können zu welchen Messwerten ein Chart erstellt wird. Für das erstellen eines Charts habe ich ein Sub geschrieben.

Problem:  erstes Chart passt. zweites hat dann aber die Werte vom ersten UND zweiten drinne... beim dritten Chart dann drei usw...

Komme nicht drauf wie ich das verhindere.

hier mal mein sub:

dabei ist xRange und yRange die named Ranges der x und y Werte, cName der Titel, pos die gewünschte Position, style ist für das Wählen verschiedener Chart-Typen und color gibt die Farbe der Linie an.

Sub createChart(xRange, yRange, cName As String, pos, style, color)

ActiveWorkbook.Sheets("Sheet2").Activate
   
   'Create a new chart.
   Set chartName = Charts.Add

   Set chartName = chartName.Location(Where:=xlLocationAsObject, Name:="Sheet2")
   
   With chartName
   'Style via Combobox.
        If style = 1 Then
        .ChartType = xlLine
        End If
        If style = 2 Then
        .ChartType = xlLineMarkersStacked
        End If
        
      
      'Set data source range.
       chartName.SetSourceData Source:=Range(xRange, yRange)
              ActiveChart.SeriesCollection.NewSeries
       chartName.SeriesCollection(1).Format.Line.ForeColor.RGB = color
      .HasTitle = True
      .ChartTitle.Text = cName
      'The Parent property is used to set properties of
      'the Chart.
      
      With .Parent
        .Top = Range(pos).Top
        .Left = Range(pos).Left
       
      End With
   End With

End Sub

Bin für alle Tipps offen :)
Danke
Nils