Aus Tabelle4 in Tab1 ZeilenPosition finden

Sub Suche_NEW()
Dim Zeilenwert As Integer
Zeilenwert= iRowValueItem("29437436", 1)
MsgBox (Zeilenwert)
End Sub

Function iRowValueItem_NEW(sWhat As String, iCol As Integer) As Integer

Dim rng As Range

If sWhat = "" Then Exit Function

'Set rng = Columns(iCol).Find(What:=sWhat, LookAt:=xlWhole, LookIn:=xlFormulas)

Set rng = Worksheet("SEQUENZEN").Columns(iCol).Find(What:=sWhat, LookAt:=xlWhole, LookIn:= _

xlFormulas)

If rng Is Nothing Then

Exit Function

End If

iRowValueItem = rng.Row

End Function