Ik heb volgende code in een formulier voor het kijken of een bepaalde naam reeds voorkomt in een lijst . Indien deze voorkomt moet ik in textbox1 het bijhorend nr krijgen, indien niet een niuew nr. Doch deze code voldoet niet. Iemand die een idee geeft hoe deze code toch goed werkt?
Code:
Private Sub cbooffKlant_Change()
'gegevens klantnr en naam opzoeken
TextBox3.Text = cbooffklant.List(cbooffklant.ListIndex, -1) + 1
TextBox2.Text = cbooffklant.List(cbooffklant.ListIndex, 1)
'kijk of klant offerte reeds een klantnr heeft voor faktuur
a = textbox2..text
for each b in sheets("klantgegevens").range("klantfak")
if a = b then
textbox1.text = b.offset(0,-2)
else
textbox1.text = range("klnr")
end if
next
End Sub