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