Teil von Zellenwert über Textbox suchen

[UltraTM]

Hallo zusammen,

und zwar würde ich gerne nach dem Wert der Textbox in einer Zelle suchen. Was mit folgendem Code funktioniert. Diese Ergebnisse werden auch in die Listbox usw übertragen.

Meine Frage hierzu ist: Wie kann ich es machen das er nicht exact das gleiche finden mussen was in der Textbox steht sondern das in der Textbox nur ein Teil sein muss.

Code:

Private Sub cmdSuchen_Click()
 Dim lngRow As Long, lngLast As Long

 If TextBox1.text <> "" Then
   With Sheets("Maschinenliste")
     lngLast = Application.Max(19, .Cells(.Rows.Count, 1).End(xlUp).Row)
     ListBox1.Clear
     For lngRow = 19 To lngLast
       If .Cells(lngRow, 5).Value = TextBox1 Then
         ListBox1.AddItem Cells(lngRow, 1).text
         ListBox1.Column(0, ListBox1.ListCount - 1) = .Cells(lngRow, 3).text
         ListBox1.Column(1, ListBox1.ListCount - 1) = .Cells(lngRow, 4).text
         ListBox1.Column(2, ListBox1.ListCount - 1) = .Cells(lngRow, 5).text
         ListBox1.Column(3, ListBox1.ListCount - 1) = .Cells(lngRow, 24).text
         ListBox1.Column(4, ListBox1.ListCount - 1) = .Cells(lngRow, 13).Value
       End If
     Next
   End With
 Else
   MsgBox "Kein gültige Seriennummer!"
 End If

End Sub

 

Code:

If .Cells(lngRow, 5).Value = TextBox1 Then

Das würde ich gerne ändern das er nicht = (gleich) sondern ein Teil sein kann.


VIelen Dank für eure Hilfe



Grüße René

[Wastl]

Hi,

mit Like

guggschdu

[Elex]

Oder

If InStr(1, .Cells(Zeile, 1).Text, TextBox1.Value, 1) > 0 Then

[UltraTM]

Hallo Wastl und Elex,

danke für die Lösungen, manchmal sieht man den Wald vor lauter Bäumen nicht.

Wieder was gelernt:)

Grüße René