Navigation

Hej jeg er ny i VB og prøver at få et XY-diagram til at opdaterer sig automatisk:

Jeg har optaget en macro som start: 

Jeg kan bare ikke finde hvorfor at den første kode virker og den nedenunder ikke gør.
Jeg vil have at den selv finder bunden af kollonen når den skal ændre dataerne i Diagram 12

Sub Makro5()
'
' Makro5 Makro
    ActiveSheet.ChartObjects("Diagram 12").Activate
    ActiveChart.SeriesCollection(1).Name = "='Ark1'!$e$1"
     ActiveChart.SeriesCollection(1).XValues = _
       Worksheets("ark1").Range("a1").End(xlDown)
End Sub

Sub Makro5()
'
' Makro5 Makro
    ActiveSheet.ChartObjects("Diagram 12").Activate
    ActiveChart.SeriesCollection(1).Name = "='Ark1'!$e$1"
     ActiveChart.SeriesCollection(1).XValues = _
       Worksheets("ark1").Range("a1:a2")
End Sub

Håber i kan hjælpe mig 

Navigation

Ændre data i diagram med VBA