Office: Chart enthält in Legende zwei Einträge mehr als angegeben

Mit folgenden Code (abgespecktes Beispiel) fülle ich ein Chart-Objekt

Code:

Dim ch As ChartSpace
Dim werte1 As Variant
Dim werte2 As Variant
Dim xachse As Variant
Dim yachse As Variant

werte1 = Array(1, 2, 3, 4, 5, 6, 7, 10)
werte2 = Array(4, 3, 2, 5, 7, 8, 9, 12)
xachse = Array("A", "B", "C", "D", "E", "F", "G", "H")
yachse = Array("T1", "T2")

Set ch = Me!cht.Object
ch.Clear
ch.Charts.Add

With ch.Charts(0)
.Type = chChartTypeLineMarkers
.SetData chDimSeriesNames, ch.Constants.chDataLiteral, yachse
.SetData chDimCategories, ch.Constants.chDataLiteral, xachse
.SeriesCollection.Add
.SeriesCollection(0).SetData chDimValues, ch.Constants.chDataLiteral, werte1
.SeriesCollection.Add
.SeriesCollection(1).SetData chDimValues, ch.Constants.chDataLiteral, werte2
End With

ch.HasChartSpaceTitle = True
ch.ChartSpaceTitle.caption = "Titel"
ch.HasChartSpaceLegend = True
ch.ChartSpaceLegend.position = chLegendPositionRight

Die Anzeige funktioniert bis auf die Legende wunderbar. Die Legende enthält neben den Namen "T1" und "T2" noch "Reihe 3" und "Reihe 4". Wo kommen die her und wie kann ich sie eliminieren.