Clever-Excel-Forum

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é

Hi,

mit Like

guggschdu

Oder

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

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é

UltraTM

Wastl

Elex

UltraTM