Option Compare Text

Public Sub StringVergleich()
'----- Declaration -------------------
Dim i, j, ez, lz, kez, klz, es, kz, ws As Integer
Dim arr As Long
Dim CpyStrArray(1, 3 To 5233)
Dim CpyStrInt As Integer
Dim CpyStr As Variant
Dim ObjStr As Variant

'----- Variables ----------------------
ez = 3
lz = 2200
kez = 3 
klz = 5233 
es = 14 
kz = 15 
ws = 20 


For j = ez To lz
    ObjStr = Cells(j, 11).Value
    For i = kez To klz
        CpyStr = Cells(CpyStrArray(1, i), 20)
        'CpyStr = Cells(CpyStrArray(i), kz).Value
        If Trim(LCase(CpyStr)) Like Trim(LCase(ObjStr)) Then
            Cells(j, ws).Value = "True"
            Exit For
        Else
            Cells(j, ws).Value = "False"
        End If
    Next i
Next j
End Sub