Sub wverweis()
Dim lngC As Long
Dim rückgabe
Dim auswahl As Range, feld As Range, ausgabe As Range
Dim i As Integer
For lngC = 24 To 35
Set feld = Worksheets("AWF50").Range("F" & lngC)
Set ausgabe = Worksheets("AWF50").Range("K" & lngC)
Set auswahl = Rows(12).Find(what:="tofind", LookIn:=xlValues, lookat:=xlWhole)
If Not auswahl Is Nothing Then
Range(Cells(12, 9), auswahl.Offset(0, -1)).Select
rückgabe = Application.WorksheetFunction.HLookup(feld, Selection, 1, True)
If rückgabe = feld.Value Then ausgabe = "" Else: ausgabe = feld
ausgabe.Select
Else
MsgBox "TOFIND fehlt am Ende des Bereichfeldes"
End If
Next lngC
End Sub