Dim xlZelle As Range
    Set xlTabelle = ActiveWorkbook.Sheets("Inventur Liste")
    Set xlZelle = xlTabelle.Range("B3")
 
    With xlZelle
        Set c = .Find(serNrtxt, , Excel.XlFindLookIn.xlValues, _
          Excel.XlLookAt.xlPart, _
    Excel.XlSearchOrder.xlByRows, Excel.XlSearchDirection.xlNext, _
    False)
 
        If Not c Is Nothing Then
            firstAddress = c.Address
            Text1 = c.Address
        End If
    End With