VBA Zelle einfärben

Private Sub CSearch_Click()
Dim Dat1, Dat2, TB1_Comp, TB2_Comp, TB1_Paste, TB2_Copy, str1, str2 As String
Dim wkb1 As Workbook, wkb2 As Workbook
Dim row_Count_1, row_Count_2, i, j, t As Integer
Dat1 = TBT1.Text
Dat2 = TBT2.Text
TB1_Comp = TBT1_Comp.Text
TB2_Comp = TBT2_Comp.Text
TB1_Paste = TBT1_Paste.Text
TB2_Copy = TBT2_Copy.Text
Set wkb1 = Workbooks.Open(Dat1)
Set wkb2 = Workbooks.Open(Dat2)
row_Count_1 = wkb1.Sheets(1).Cells(Rows.Count, TB1_Comp).End(xlUp).Row
row_Count_2 = wkb2.Sheets(1).Cells(Rows.Count, TB1_Comp).End(xlUp).Row
i = 9
j = 5
t = 1
Do Until i > row_Count_1
j = 3
'MsgBox str1 & " wird gesucht"
Do While j