Problem mit SeriesCollection

ich habe ein Problem mit der SeriesCollection. Ich möchte gerne dynamisch einem Chart verschiedene Werte zuweisen. Leider bekomme ich immer die Fehlermeldung 1004 "Unable to set the Values property for the Series class". Ich weiß nicht mehr weiter. Vielleicht kann mir ja einer von euch helfen.

Mein Code:
Dim r As Range
Dim cht As Chart
With Sheet1
Set r = .Range("D12:D14")
End With
Set cht = Sheet1.ChartObjects(1).Chart
cht.SeriesCollection(1).Values = r

Die Range ist auch komplett mit Werten gefüllt.