XValues-Eigenschaft des Series-Objektes ...

Sub UPRdiagramm2()
Unload EingabemaskeAuswertungen
Sheets("Datenquelle").Select
If ComboBoxSort = Jahr Then
Columns("B:iv").Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
ElseIf ComboBoxSort = Datum Then
Columns("B:iv").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End If
Sheets("Standfläche_und_Besucher").Select
ActiveChart.PlotArea.Select
For i = 1 To 3
ActiveChart.SeriesCollection(i).XValues = "=Datenquelle!R5C2" & ":R5C6"
Next i
ActiveChart.SeriesCollection(1).Values = "=Datenquelle!R10C2" & ":R10C6"
ActiveChart.SeriesCollection(2).Values = "=Datenquelle!R12C2" & ":R12C6"
ActiveChart.SeriesCollection(3).Values = "=Datenquelle!R14C2" & ":R14C6"
End Sub