Code zumeinfärben arbeitet nicht "richtig"

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer
Dim EndeA As Long
Dim EndeB As Long
EndeA = Worksheets("Test").Cells(Rows.Count, 1).End(xlUp).Row
EndeB = Worksheets("Test").Cells(Rows.Count, 10).End(xlUp).Row
Range("J:J").Interior.ColorIndex = xlNone
For i = 6 To EndeA
For j = 6 To EndeB
If Sheets("Test").Cells(i, 1).Value = Sheets("Test").Cells(j, 10).Value _
Or Sheets("Test").Cells(i, 3).Value = Sheets("Test").Cells(j, 10).Value _
Or Sheets("Test").Cells(i, 5).Value = Sheets("Test").Cells(j, 10).Value Then
Sheets("Test").Cells(j, 10).Interior.ColorIndex = 4
End
Else
Sheets("Test").Cells(j, 10).Interior.ColorIndex = 3
End If
Next j
Next i
End Sub