Sub Suchen(ByVal c As Integer, ByVal sText As String)
  Dim lng As Long
  Dim i As Integer
  Application.ScreenUpdating = False
  With frm_Daten
    .ListBox1.Clear
    Sheets("DATEN").Activate
    i = 0
    For lng = 3 To ActiveSheet.UsedRange.Rows.Count
      If InStr(LCase(Cells(lng, c).Value), LCase(sText)) > 0 Then
        .ListBox1.AddItem Cells(lng, 1).Value
        .ListBox1.Column(1, i) = Cells(lng, 2).Value
        .ListBox1.Column(2, i) = Cells(lng, 3).Value
        .ListBox1.Column(3, i) = Cells(lng, 4).Value
        .ListBox1.Column(4, i) = Cells(lng, 5).Value
        .ListBox1.Column(5, i) = Cells(lng, 6).Row
        i = i + 1
      Else
      End If
    Next lng
  End With
  frm_Daten.Label1111 = frm_Daten.Label111
  frm_Daten.Label2222 = frm_Daten.Label222
  frm_Daten.Label3333 = frm_Daten.Label333
  frm_Daten.Label4444 = frm_Daten.Label444
  frm_Daten.Label5555 = frm_Daten.Label555
  Application.ScreenUpdating = True
End Sub

Private Sub cmdSuchen_Click1_Click() 
  Suchen 1, TextBox1.Value
End Sub 
 
Private Sub cmdSuchen_Click2_Click() 
  Suchen 3, TextBox2.Value
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de