Sub Suchen(ByVal c As Integer)
    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(.TextBox1.Value)) > 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