Voorraad met bestellijst

[mvdvlist]

Een eenvoudig voorraad overzicht met invulformulier en bestellijst.

 

[mvdvlist]

 

[Warme bakkertje]

Foutje ontdekt in onderstaande.

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

Moet zo

For i = .ListCount - 1 To 0 Step -1

anders wordt de bovenste regel van de ListBox nooit verwijderd bij zoekopdrachten.

 

[mvdvlist]

Dat is een goeie. Ik vroeg me dat al af. Weer wat geleerd. Bedankt....

 

[Warme bakkertje]

ListBoxen hebben net als ComboBoxen een ListIndex van 0 maw de 1ste rij is 0 en niet 1.
Idd. iets waar je rekening mee moet houden bij het programmeren.

 

[mvdvlist]

Eigenlijk logisch want de Columns beginnen ook bij 0. Vreemd eigenlijk dat ze dat niet universeel hebben gemaakt. Bij Cells begint het gewoon bij 1. Je zou toch zeggen VBA is VBA.