Minimum Diagramm wird nicht erkannt

Sub Diagrammblatt()
' Alte Diagramme löschen
Dim objChart As Object
For Each objChart In Sheets("Tabelle2").ChartObjects
objChart.Delete
Next
Dim DA1, DA2, DA3, DE, DA As Range
Dim KA1, KA2, KA3, KE, KA As Range
Dim xArr As Variant
Dim yArr As Variant
DA1 = Date
DA2 = DateAdd("d", 3, Date)
DA3 = DateAdd("d", 8, Date)
DE = DateAdd("m", 12, Date)
KA1 = 0.6
KA2 = 0.3
KA3 = 0.1
KE = 0
xArr = Array(DA1, DA2, DA3, DE)
yArr = Array(KA1, KA2, KA3, KE)
' Auswahl der Tabelle und des Diagrammtypes
With Worksheets("Tabelle2")
.Shapes.AddChart2(276, xlAreaStacked).Select
.Application.CutCopyMode = False
End With
With ActiveChart
' Festlegung der Daten f?r das Diagramm
.SeriesCollection.NewSeries
.SeriesCollection(1).Name = "=""Test"""
.SeriesCollection(1).Values = yArr
.SeriesCollection(1).XValues = xArr
' Bearbeitung der x-Achse als Zeitachse mit Maximum und Minimum Datum
.HasAxis(xlTimeScale) = True
.Axes(xlCategory).MinimumScale = Date
.Axes(xlCategory).MaximumScale = DateAdd("m", 12, Date)
' Bearbeitung der y-Achse mit Achsenbeschriftung und Minimum und Maximum
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Auslastung"
.Axes(xlValue).MinimumScale = 0
.Axes(xlValue).MaximumScale = 1
End With
End Sub