Ik wil via een zoekfunctie een listbox vullen doormiddel van rowsource omdat ik dan columnheads kunnen worden weergegeven.
De zoekfunctie werkt doormiddel van een lus. En zet daarna een gevonden overeenkomst in de listbox. Alleen als de volgende overeenkomst wordt gevonden wordt de eerdere overeenkomst gewist in de listbox. Hoe kan ik dit voorkomen?
De zoekfunctie werkt doormiddel van een lus. En zet daarna een gevonden overeenkomst in de listbox. Alleen als de volgende overeenkomst wordt gevonden wordt de eerdere overeenkomst gewist in de listbox. Hoe kan ik dit voorkomen?
Code:
'zoeken welke cellen overeenkomst hebben met het zoekargument
For i = 2 To dbl_AantalKlanten
For j = 1 To 7
'celgegevens ophalen
var_CelGegevens = Sheets("Klanten").Cells.Item(i, j)
'vaststellen gegevenstype celgegevens en veranderen naar string indien nodig
If Not VarType(var_CelGegevens) Then
var_CelGegevens = CStr(var_CelGegevens)
End If
'kleine letters maken van eventuele hoofdletters
var_CelGegevens = LCase(var_CelGegevens)
'kijken of invoer gelijk is aan een debiteurgegeven of een deel ervan.
If InStr(var_CelGegevens, var_Zoekargument) <> 0 Then
'alle klantgegevens die aan de zoekopdracht gerelateerd zijn
var_Klantgegevens = Sheets("Klanten").Range("A" & i & ":G" & i).Value
'listbox aanwijzen
With frm_KiesKlant.lstKiesKlant_frmKiesklant
'kolom met waarde die in .value komt
.BoundColumn = 1
'aantal kolommen opgeven
.ColumnCount = 7
'kolomhoofden
.ColumnHeads = True
'breedte van de kolommen weergeven
.ColumnWidths = "30;100;100;50;50;60;100"
'de listbox vullen
.RowSource = var_Klantgegevens
End With
'argumenten j lus beeindigen
Exit For
End If
Next j
Next i
