wo Fehler in UDF?

Public Function DNR(Wert As String)
Dim intI As Integer, lZahl As Long, myRange As Range
Set myRange = wksIndex.Range("C2:C300")
lZahl = Application.WorksheetFunction.CountA(myRange)
For intI = 1 To lZahl
With wksIndex.Cells(intI, 2)
If .Text = Wert Then
DNR = .Offset(0, 2)
Exit For
End If
End With
Next
End Function