Hilfe, mein Makro funktioniert nicht mehr!
04.03.2008 09:54:46
Alex
habe hier ein Suchmakro, das von eine auf die andere Minute nicht mehr funktioniert hat.
Es gibt mir immer die zweite Zeile des Sheets aus. Was habe ich verstellt?
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) Or blatt.Range("C" & i).Value = CDbl( _
TBName.Value) _
Or blatt.Range("D" & i).Value = CDbl(TBName.Value) Or blatt.Range("" & 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.Label11 = blatt.Range("D" & i).Value
UserForm1.Label12 = blatt.Range("E" & i).Value
UserForm1.Label5 = blatt.Range("F" & i).Value
UserForm1.Label14 = blatt.Range("I" & i).Value
Else
MsgBox ("Inventarnummer " & TBName.Value & " konnte nicht gefunden werden!"), vbExclamation
End If
End Sub