mehrspaltige Listbox filtern
04.01.2014 17:47:22
ludmila
im nachstehendem Code suche ich einen Begriff in einem Tabellenblatt.
Das funktioniert! Die Suche erfolgt jetzt über die ComboBox
und gibt die Spalte an.
Jetzt wurde ich gerne in den Spalten A - H suchen lassen.
Was muss ich tun?
Danke!
Gruß
Private Sub KD_Such_Einlesen()
On Error Resume Next
Dim Spalte As Long
Dim WB as Workbook
Dim wksKD as Worksheet
Dim UF as Userform
Set WB = Workbooks("OV1.xlsm")
Set wksKD = WB.Worksheets("Kunden")
Set UF = UF_Start
UF.LSTKD1.Clear
UF.LSTKD1.ColumnCount = 8
Spalte = UF.CBOKDsuchinSpalte.ListIndex + 1
xSuch = UF.TXTKDsuche.Value
With wksKD
.Activate
For ii = 2 To IIf(IsEmpty(.Cells(Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp). _
Row, Rows.Count)
If Not IsEmpty(.Cells(ii, 1)) And .Cells(ii, Spalte) = xSuch Then
UF.LSTKD1.AddItem Cells(ii, 1).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 0) = .Cells(ii, 1).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 1) = .Cells(ii, 2).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 2) = .Cells(ii, 3).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 3) = .Cells(ii, 4).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 4) = .Cells(ii, 5).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 5) = .Cells(ii, 6).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 6) = .Cells(ii, 7).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 7) = .Cells(ii, 8).Value
UF.LSTKD1.List(UF.LSTKD1.ListCount - 1, 8) = .Cells(ii, 52).Value
End If
Next ii
End With
UF.LBLKDGes.Caption = UF.LSTKD1.ListCount
End Sub
Anzeige