Eindeutigen Namen für Excel-Diagramm im VBA vergeben

Sub Graph_erstellen()



  Dim lngAKurve As Long

  Dim wksA As Worksheet

  Set wksA = Worksheets("Roh-Daten")



  With wksA

    lngAKurve = Range("Tabelle1!V2")

  End With

  With ActiveSheet.Shapes.AddChart2(-1, xlXYScatterSmoothNoMarkers).Chart

  

    With .SeriesCollection.NewSeries

      .Name = "PV-Leistung"

      .XValues = wksA.Range(wksA.Cells(1, 2), wksA.Cells(lngAKurve, 2))

      .Values = wksA.Range(wksA.Cells(2, 3), wksA.Cells(lngAKurve, 3))

      .Border.Color = RGB(153, 204, 0)

    End With

    With .SeriesCollection.NewSeries

      .Name = "AC-Bezug"

      '.XValues = wks.Range(wksA.Cells(2, 2), wksA.Cells(lngAKurve, 2))

      .Values = wksA.Range(wksA.Cells(2, 10), wksA.Cells(lngAKurve, 10))

      .Border.Color = RGB(51, 102, 255)

    End With

    With .SeriesCollection.NewSeries

      .Name = "AC-Eigenbedarf"

      '.XValues = wks.Range(wksA.Cells(2, 2), wksA.Cells(lngAKurve, 2))

      .Values = wksA.Range(wksA.Cells(2, 13), wksA.Cells(lngAKurve, 13))

      .Border.Color = RGB(255, 10, 255)

    End With

    'USW weitere Kurven

  End With



  Set wksA = Nothing



End Sub