Tabellenblatt durchsuchen

Private Sub CommandButton1_Click()
Dim i As Variant, blnFound As Boolean, blatt As Worksheet
i = 2
On Error Resume Next
Set blatt = Worksheets("EXCEL")
If TBName.Value = "" Then
MsgBox ("Eingabe fehlt"), vbCritical
Exit Sub
End If
Do While blatt.Range("A" & i).Value  ""
If blatt.Range("B" & i).Value = CDbl(TBName.Value) Then
blnFound = True
Exit Do
End If
i = i + 1
Loop
If blnFound = True Then
UserForm1.Label2 = blatt.Range("A" & i).Value
UserForm1.Label3 = blatt.Range("B" & i).Value
UserForm1.Label4 = blatt.Range("C" & i).Value
UserForm1.Label5 = blatt.Range("D" & i).Value
Else
MsgBox ("Inventarnummer " & TBName.Value & " konnte nicht gefunden werden!"), vbExclamation
End If
End Sub