Laufzeitfehler'13': Typen unverträglich

Ich verzweifle!!!

Spalte D ist eine Datumsspalte (Benutzerdef.format: JJJJ-MM-TT)
Spalte E ist eine Standartspalte mit Zahlen drin

bei der Formel
k = Cells(x, 5)
bringt er mir den Laufzeitfehler'6'

Warum?

Sub PT_korigieren()

Dim a As Long, b As Long, x As Long, y As Long
Dim i As Byte, k As Byte

Sheets("Zeitplan (2)").Select

'Auslesen der letzten Zeile
a = Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

'Auslesen der letzten Spalte
b = Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).column

For x = 2 To a
    For y = 8 To b
        If Cells(x, 4) = Cells(1, y) Then
            
            k = Cells(x, 5)
            
            For i = 1 To k Step 1
                
                t = Cells(x, y).Interior.ColorIndex
                
                If t = 15 Then
                    
                    k = k + 1
                
                End If
            Next
            
            Cells(x, 5) = k
            
        End If
    Next
Next
    
End Sub