Datenpunkte suchen und einfärben

Hallo Leute,
Ich versuche ein Makro zu schreiben, welches die Datenpunkte in einem Diagramm mit bestimmten werten vergleicht und bei einer Übereinstimmung mit einer bestimmten Farbe einfärbt.
Ich hatte dieses Problem schon mal gepostet und dachte jetzt, dass ich alle Fehler behoben habe. Aber leider hat nun einen Fehler beim Kompilieren. Excel erwartet ein Datenfeld bei vals2(x2) = t1. An was kann das liegen? Meint ihr der Code könnte ansonsten das tun was er soll??
Danke für die Hilfe!!
Gruß Chris
Hier nochmal der ganze code

Dim t1              As String
Dim t2              As String
Dim t3              As String
Dim w1              As String
Dim w2              As String
Dim w3              As String
Dim cht2            As Chart
Dim s2              As Series
Dim p2              As Point
Dim vals2           As Integer
Dim x2              As Integer
t1 = Worksheets("DQI Comparison").Range("O4").Value
t2 = Worksheets("DQI Comparison").Range("O5").Value
t3 = Worksheets("DQI Comparison").Range("O6").Value
w1 = Worksheets("DQI Comparison").Range("O12").Value
w2 = Worksheets("DQI Comparison").Range("O13").Value
w3 = Worksheets("DQI Comparison").Range("O14").Value
Worksheets("DQI Comparison").Activate
ActiveSheet.ChartObjects("Diagramm 1").Activate
Set cht2 = ActiveSheet.ChartObjects(1).Chart
Set s2 = cht2.SeriesCollection(1)
vals2 = s2.Values
For x2 = 0 To s2.Points.Count
If vals2(x2) = t1 Then
With s2.Points(x2)
.MarkerBackgroundColor = RGB(255, 51, 0)
.MarkerForegroundColor = RGB(255, 51, 0)
End With
End If
Next x2