ActiveChart.Refresh funktioniert nicht

[irfl]

Hallo,

ich soll zur Zeit in Excel ein Diagramm erstellen, wobei sich hier die Balken bewegen (zur Simulation der Entwicklung)
Jetzt habe ich diesen Code bis jetzt, allerdings bringt es mir den Fehler "Objektvariable oder Withblockvariable nicht festgelegt". Ist die Struktur der Schleife unvollständig? Eigentlich möchte ich mit dieser ja nur, dass die Infos aus der neuen Zeile in Balken dargestellt werden. (Ich muss gestehen, dass ich noch nie weiter mit VB gearbeitet habe und dadurch beim Googlen nicht viel gefunden habe, was mir bei meiner Aufgabenstellung weiterhelfen könnte )

Sub Makro2()

    Range("C2:G2").Select
    Charts.Add
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("C2:G2"), PlotBy _
        :=xlColumns
    ActiveChart.SeriesCollection(1).XValues = "=Tabelle1!R2C1:R2C2"
    ActiveChart.SeriesCollection(1).Name = "=Tabelle1!R1C3"
    ActiveChart.SeriesCollection(2).XValues = "=Tabelle1!R2C1:R2C2"
    ActiveChart.SeriesCollection(2).Name = "=Tabelle1!R1C4"
    ActiveChart.SeriesCollection(3).XValues = "=Tabelle1!R2C1:R2C2"
    ActiveChart.SeriesCollection(3).Name = "=Tabelle1!R1C5"
    ActiveChart.SeriesCollection(4).XValues = "=Tabelle1!R2C1:R2C2"
    ActiveChart.SeriesCollection(4).Name = "=Tabelle1!R1C6"
    ActiveChart.SeriesCollection(5).XValues = "=Tabelle1!R2C1:R2C2"
    ActiveChart.SeriesCollection(5).Name = "=Tabelle1!R1C7"
    ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
    With ActiveChart
        .HasTitle = False
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = False
    End With
    
    For I = 3 To 289
        Range("C" & I & ":G" & I).Select
         With ActiveChart
              .Refresh
         End With
    Next
    
    
End Sub

Für eure Hilfe wäre ich sehr dankbar.

mfg irfl

 

[irfl]

Hallo,
ich habe es jetzt noch mal über einen anderen Weg versucht, allerdings funktioniert dies auch nicht

Sub Balken()

    For I = 3 To 289
        ActiveChart.SeriesCollection(1).Values = "=Tabelle1!R" & I & "C3)"
        ActiveChart.SeriesCollection(2).Values = "=Tabelle1!R" & I & "C4)"
        ActiveChart.SeriesCollection(3).Values = "=Tabelle1!R" & I & "C5)"
        ActiveChart.SeriesCollection(4).Values = "=Tabelle1!R" & I & "C6)"
        ActiveChart.SeriesCollection(5).Values = "=Tabelle1!R" & I & "C7)"
    Next
    
        
End Sub

Hat jemand vielleicht eine Idee, wie ich es umsetzen könnte, dass sich die Balken entsprechend der neuen Zeilen verändern? (sozusagen schwankende Simulation)
Für eine schnelle Hilfe wär ich sehr dankbar, weil ich jetzt schon 2 Tage dran bastel (und es ja an sich keine große Aufgabe ist )
Danke schon mal vorab!