Hallo liebe VBA-Freunde,

ich habe wieder ein Problem unzwar möchte ich ein Diagramm erstellen für k=2( wenn ich mich in der zweiten Zeile befinde), wobei jedes mal wenn ich das Makro ausführe eine neue Datenreihe hinzugeführt wird und diese soll dann in das Diagramm mit aufgenommen werden. Dies möchte bei mir nicht so richtig klappen. Ich hoffe mir kann jemand weiterhelfen. Hier ist der Code den ich bis dahin habe:

Sub OutofPerimeter()

Dim k As Integer
k = 2
Dim l As Integer
Dim m As Integer
m = 2
Dim Workbook As Workbook
Dim strArray(2 To 20)
Dim strArray1(1 To 4)

strArray1(1) = strArray(2)
strArray1(2) = ActiveWorkbook.Worksheets("Ergebnisübersicht").Cells(30, 2).Value
strArray1(3) = ActiveWorkbook.Worksheets("Ergebnisübersicht").Cells(33, 2).Value
strArray1(4) = ActiveWorkbook.Worksheets("Ergebnisübersicht").Cells(23, 2).Value

Do Until ActiveWorkbook.Worksheets("Übersicht").Cells(k, 1).Value = ""
    k = k + 1
    Loop
    MsgBox k
    For l = 1 To 4
    ActiveWorkbook.Worksheets("Übersicht").Cells(k, l).Value = strArray1(l)
    Next l
    
    Application.Goto Reference:=ActiveWorkbook.Worksheets("Übersicht").Range("A1")
    
    ActiveWorkbook.Worksheets("Übersicht").Range(Cells(k, 2), Cells(k, 3)).Select
    Selection.NumberFormat = "0.00%"
    ActiveWorkbook.Worksheets("Übersicht").Cells(k, 4).Select
    Selection.NumberFormat = "General"
    ActiveWorkbook.Worksheets("Übersicht").Range(Cells(k, 2), Cells(k, 4)).Select
    
 
 
If k = 2 Then
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlBubble
    ActiveChart.SeriesCollection(1).Name = ActiveWorkbook.Worksheets("Übersicht").Cells(k, 1).Value
    ActiveChart.SeriesCollection(1).XValues = ActiveWorkbook.Worksheets("Übersicht").Cells(k, 2).Value
    ActiveChart.SeriesCollection(1).Values = ActiveWorkbook.Worksheets("Übersicht").Cells(k, 3).Value
   ActiveChart.SeriesCollection(1).BubbleSizes = ActiveWorkbook.Worksheets("Übersicht").Cells(k, 4).Value
   ActiveWorkbook.Worksheets("Übersicht").ChartObjects("Diagramm 1").Activate
Else

ActiveWorkbook.Worksheets("Übersicht").ChartObjects("Diagramm 1").Activate
ActiveChart.PlotArea.Select
ActiveWorkbook.Worksheets("Übersicht").ActiveChart.SeriesCollection.Add.NewSeries
ActiveChart.SeriesCollection(k - 1).Name = "=Übersicht!$A$" & 4
ActiveChart.SeriesCollection(k - 1).XValues = "=Übersicht!$B$" & 4
ActiveChart.SeriesCollection(k - 1).Values = "=Übersicht!$C$" & 4
ActiveChart.SeriesCollection(k - 1).BubbleSizes = "=Übersicht!$D$" & 4
   

End If

End Sub