Begriffsuche nur in bestimmten Spalten

Sub Zuordnen()
'Application.ScreenUpdating = False
Sheets("DB-01").Select
Dim rng As Range
Dim iRowL As Integer, iRow As Integer
iRowL = Sheets("DB-01").Range("A2") + 1
For iRow = 2 To iRowL
If IsEmpty(Cells(iRow, 6)) Then
With Worksheets("DB-03")
Set rng = .Cells.Find(Cells(iRow, 4), _
lookat:=xlPart, LookIn:=xlValues)
If Not rng Is Nothing Then
Cells(iRow, 6) = .Cells(rng.Row, 4)
Cells(iRow, 256) = .Cells(rng.Row, 1)
End If
End With
End If
Next iRow
End Sub