VBA · Excel

Wert in Excel-Spalte suchen

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
VBAExcelSuchenFind
WA