Zoeken binnen Listbox

[HyperXnl]

En we lopen wederom tegen een probleem aan

In het Userform kan een artikel gezocht worden. Echte zoekt hij hem alleen in de Listbox op de eerste kolom.
(Bijv. Zoeken op B, dan pakt hij automatisch boek)

Is het ook mogelijk om te zoeken binnen meerdere kolommen?
Dus als ik bijv. 256 bij zoeken intyp dat hij dan de regel van Kousen pakt?


Thanks maar weer

Grtz Michael

 

[snb]

Ik zou eerder prioriteit geven aan het gebruik van VBA:

Bijv.

Private Sub UserForm_Initialize()
   TextBox5 = Format(Date, "dd-mm-yyyy")
   ListBox1.List = Sheets("Voorraad").Cells(2, 1).CurrentRegion.Offset(1).Value
   ComboBox1.List = Sheets("Leveranciers").Cells(1).CurrentRegion.Offset(1).Value
End Sub

Private Sub ListBox1_Click()
    For j = 0 To 4
       Me("Textbox" & Choose(j + 1, 1, 2, 3, 7, 21)) = ListBox1.Column(j)
    Next
    TextBox4.Value = ""
    
    Frame3.Visible = Val(TextBox3) <= Val(TextBox7)
End Sub

Bij een betere strukturering van de naamgeving van de userformcontrols kun je met minder code af; bijv.

Private Sub ListBox1_Click()
    For j = 0 To 4
       Me("Textbox" & j) = ListBox1.Column(j)
    Next
    TextBox4.Value = ""
    
    Frame3.Visible = Val(TextBox3) <= Val(TextBox7)
End Sub

 

[Jack Nouws]

zo beter

Private Sub TextBox6_Change()
Dim sFind As String
    sFind = Me.TextBox6.Text
     
    If Len(sFind) = 0 Then
        Me.ListBox1.ListIndex = -1
        Me.ListBox1.TopIndex = 0
    Else
        For i = 0 To Me.ListBox1.ListCount - 1
           If InStr(UCase(ListBox1.List(i[COLOR=#ff0000], 1[/COLOR])), UCase(sFind)) > 0 Then
                Me.ListBox1.TopIndex = i
                Me.ListBox1.ListIndex = i
                Exit For
            End If
        Next i
    End If
End Sub

 

[HyperXnl]

Mannen net jullie opties geprobeerd

@SNB, ben redelijk nieuw in de VBA, Macro's etc. Hoop middels dit forum er wat meer van te weten te komen. Net de code getest krijg hem alleen niet aan de praat.

@Jack Nouws, Deze werkt wel maar dan pakt hij alleen de waarde uit de tweede kolom, maar wil graag dat hij zoeken in alle kolommen binnen de listbox.

Thanks

 

[E v R]

Bedoel je dit?

If InStr(UCase(Join(Application.Index(Application.Index(ListBox1.List, 0, 0), i + 1, 0), "|")), UCase(sFind)) > 0 Then

ipv:

 If InStr(UCase(ListBox1.List(i)), UCase(sFind)) > 0 Then

Code (nog) wat lang en nu wordt er overigens in iedere kolom van de ListBox gezocht

 

[HyperXnl]

@eVr

Ja dat is hem. Top bedankt hiervoor, ik kan weer verder.
Thanks

 

[HSV]

Korter misschien?

If InStr(UCase(Join(Application.Index(ListBox1.List, i + 1, 0), "|")), UCase(sFind)) Then