Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Private Sub ZOEKBOX_Change()
With LB_00
.List = Blad2.ListObjects(1).DataBodyRange.Value
For i = .ListCount - 1 To 1 Step -1
If InStr(LCase(Join(Application.Index(.List(), i + 1, 0))), LCase(ZOEKBOX.Value)) = 0 Then .RemoveItem i
Next i
End With
End Sub
For i = .ListCount - 1 To 0 Step -1
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.