Tabellenblatt durchsuchen
03.03.2008 16:09:00
Alex
habe das unten angegebene Makro geschrieben. Ich möchte nun aber das er mir
nicht nur in Spalte "B" sucht, sondern auch in Spalte "C". Wie fange ich das an?
Danke!
Alex
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