Zelleninhalte Sheet1 in Sheet2 finden

Hallo zusammen,
ich habe mich in den letzten Tagen vermehrt mit Macros und der Userform befasst und bin begeistert von diesem Forum. Nun bin ich auf ein Problem gestoßen zu dem ich leider nichts finde und auch über die Hilfe nicht weiter komme. Es wäre super, wenn mir hierbei jemand helfen würde. Es geht um folgendes:
Ich habe eine Arbeitsmappe mit Tabellenblatt 1 ("Materials") und Tabellenblatt 3 ("Finish Codes"). Im Tabellenblatt ("Materials") stehen in Spalte D ab Zeile 6 unterschiedlichste Texte (ebenfalls ab und an leere Zeilen dazwischen). Im Tabellenblatt ("Finish Codes") stehen in Spalte A von mir vorgegebene Texte, die ich bei Bedarf entsprechend erweitern kann. Nun soll jeder wert in der Tabelle ("Materials") ab der genannten Zelle "D6" bis zur letzten Zeile mit den Vorgaben in Tabellenblatt ("Finish Codes") verglichen werden. Wenn der Text im Tabellenblatt ("Materials") nicht in der Spalte A vom Tabellenblatt ("Finish Codes") aufgeführt ist, soll die entsprechende Zelle in der Tabelle ("Materials") rot markiert werden. Mein Ansatz ist folgender:

    Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
Set wks = Worksheets("Finish Codes")
leZeile = Cells(Rows.Count, 4).End(xlUp).Row
For iRow = 6 To leZeile
var = Application.Match(Cells(iRow, 4).Value, wks.Columns(1), 0)
If IsError(var) _
And Cells(iRow, 4).Value <> "" Then
Cells(iRow, 4).Interior.ColorIndex = 3
End If
Next iRow

Sub test()
Dim lshFC As Worksheet, lloRowFC As Long, lloRowM As Long, lboExist As Boolean
Set lshFC = Sheets("Finish Codes")
With Sheets("Materials")
For lloRowM = 6 To .Cells(.Rows.Count, 4).End(xlUp).Row
For lloRowFC = 1 To 1000 'beginnt in "Finish Codes" in Zeile 1, sucht bis Zeile 1000 --> wenn Start/Endzeile für "Finish Codes" nicht passt, dann anpassen!
If .Range("D" & lloRowM).Value <>"" And LCase(.Range("D" & lloRowM).Value) = LCase(lshFC.Range("A" & lloRowFC).Value) Then
lboExist = True
Exit For
End If
Next
If lboExist = True Then
lboExist = False
Else
.Range("D" & lloRowM).Interior.ColorIndex = 3
End If
Next
Next
Set lshFC = Nothing
End Sub

    Dim lshFC As Worksheet, lloRowFC As Long, lloRowM As Long, lboExist As Boolean
Set lshFC = Sheets("Finish Codes")
With Sheets("Materials")
For lloRowM = 6 To .Cells(.Rows.Count, 4).End(xlUp).Row
For lloRowFC = 1 To 1000 'beginnt in "Finish Codes" in Zeile 1, sucht bis Zeile 1000 --> wenn Start/Endzeile für "Finish Codes" nicht passt, dann anpassen!
If .Range("D" & lloRowM).Value <> "" _
And LCase(.Range("D" & lloRowM).Value) = LCase(lshFC.Range("A" & lloRowFC).Value) Then
lboExist = True
Exit For
End If
Next
If lboExist = True Then
lboExist = False
Else
.Range("D" & lloRowM).Interior.ColorIndex = 3
End If
Next
End With
Set lshFC = Nothing

If .Range("D" & lloRowM).Value <> ""

Sub kev()
Dim arrMat, arrFC, lFC As Long, lMat As Long
With Sheets("Materials")
arrMat = .Range(.Cells(6, 4), .Cells(Rows.Count, 4).End(xlUp)).Value
End With
With Sheets("Finish Codes")
arrMat = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
For lMat = 1 To UBound(arrMat)
If arrMat(lMat, 1) <> "" Then
For lFC = 1 To UBound(arrFC)
Select Case arrFC(lFC, 1)
Case arrMat(lMat, 1)
Sheets("Materials").Cells(lMat + 5, 4).Interior.Color = vbRed
Exit For
End Select
Next lFC
End If
Next lMat
End Sub

With Sheets("Finish Codes")
arrMat = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With

With Sheets("Finish Codes")
arrFC = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With

Sub kev()
Dim arrMat, arrFC, lFC As Long, lMat As Long
Dim bFOUND As Boolean
With Sheets("Materials")
.Columns(4).Interior.Color = xlNone
arrMat = .Range(.Cells(6, 4), .Cells(Rows.Count, 4).End(xlUp)).Value
End With
With Sheets("Finish Codes")
arrFC = .Range(.Cells(1, 1), .Cells(Rows.Count, 1).End(xlUp)).Value
End With
For lMat = 1 To UBound(arrMat)
bFOUND = False
If arrMat(lMat, 1) <> "" Then
For lFC = 1 To UBound(arrFC)
Select Case arrFC(lFC, 1)
Case arrMat(lMat, 1)
bFOUND = True
Exit For
End Select
Next lFC
If Not bFOUND Then
Sheets("Materials").Cells(lMat + 5, 4).Interior.Color = vbRed
End If
End If
Next lMat
End Sub

                            'Inhalt aus Materials, Spalte D = nur Kleinschreibung und alle Leerzeichen entfernen
lstrM = LCase(Replace(.Range("D" & lloRowM).Value, " ", ""))
'Inhalt aus Finish Codes, Spalte A = nur Kleinschreibung und alle Leerzeichen entfernen
lstrFC = LCase(Replace(lshFC.Range("A" & lloRowFC).Value, " ", ""))