Objektdefin. Fehler Wo?

Sub schulung()
Dim endup As Variant
Dim datum As Date
Dim x, i, spalte As Integer
spalte = Worksheets("Tab2").Range("K5").Value
datum = Worksheets("Tab2").Range("E20").Value
endup = Range("A65536").End(xlUp).Row
For i = 1 To endup
If Worksheets("Tab1").Range("D" & i).Value = datum Then
'Wenn Wert in Spalte "D" gleich Date ist
If Worksheets("Tab1").Range(Cells(i, spalte)).Interior.ColorIndex =                                                                     Worksheets("Tab1").Range(Cells(i,48)).Interior.ColorIndex Then
Worksheets("Tab2").Range("B40").Value = Worksheets("Tab1")
.Range(Cells(i, 48)).Interior.ColorIndex
End If
End If
Next i
End Sub