Sucht einen Wert in einer Spalte und liefert die gefundene Zeile zurück.
VBA
Function FindeZeile(ws As Worksheet, suchwert As String) As Long
Dim treffer As Range
Set treffer = ws.Columns("A").Find(What:=suchwert, LookIn:=xlValues, LookAt:=xlWhole)
If Not treffer Is Nothing Then FindeZeile = treffer.Row Else FindeZeile = 0
End Function
Hinweis: Spalte und Suchmodus bei Bedarf anpassen.