lstSuche.Clear
With ActiveWorkbook.Worksheets("Bauteile")
zeilen = ","
Set rng = .Range("A2:J" & .Rows.Count).Find(What:=txtSearch.Value, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, After:=.Cells(.Rows.Count, 1))
If Not rng Is Nothing Then
strFirst = rng.Address
Do
If InStr(zeilen, "," & rng.Row & ",") = 0 Then
lstSuche.AddItem rng.Value
lstSuche.List(lstSuche.ListCount - 1, 0) = rng.Offset(0, -3).Value
lstSuche.List(lstSuche.ListCount - 1, 1) = rng.Offset(0, -2).Value
lstSuche.List(lstSuche.ListCount - 1, 2) = rng.Offset(0, -1).Value
lstSuche.List(lstSuche.ListCount - 1, 3) = rng.Offset(0, 0).Value
lstSuche.List(lstSuche.ListCount - 1, 4) = rng.Offset(0, 1).Value
lstSuche.List(lstSuche.ListCount - 1, 5) = rng.Offset(0, 2).Value
lstSuche.List(lstSuche.ListCount - 1, 6) = rng.Offset(0, 3).Value
lstSuche.List(lstSuche.ListCount - 1, 7) = rng.Offset(0, 4).Value
lstSuche.List(lstSuche.ListCount - 1, 8) = rng.Offset(0, 5).Value
lstSuche.List(lstSuche.ListCount - 1, 9) = rng.Offset(0, 6).Value
zeilen = zeilen & rng.Row & ","
End If
Set rng = .Range("A2:J" & .Rows.Count).FindNext(rng)
Loop While Not rng Is Nothing And strFirst <> rng.Address
End If
End With
Set rng = Nothing
|