klik op eerste regel in listbox geeft fout ID nr weer in textbox

[Andre175]

Bedankt voor alle hulp....

Door de data voor CB2 en CB3 als volgt op te slaan , is het probleem verholpen.

    If Not fnd Is Nothing Then
        ws.Cells(fnd.Row, 1).Resize(, 23).Value = Array(TB1.Value, CB1.Value, [COLOR="#FF0000"]("'" & CB2.Value), ("'" & CB3.Value)[/COLOR], CB4.Value, , , , , , ,

uiteraard ook even geprobeerd kolom B en C als tekst te formatteren, ook positief resultaat.

 

[snb]

Verander niets aan je gegevens, verander alleen iets aan de code:

Function F_lijst(x)
    For j = 1 To UBound(sn)
        For jj = 1 To x
            If Format(sn(j, jj + y)) <> Me("CB" & jj).Value Then Exit For
        Next
        If jj = x + 1 And InStr(c01 & "|", "|" & sn(j, jj + y) & "|") = 0 Then c01 = c01 & "|" & sn(j, jj + y)
    Next
    F_lijst = Split(Mid(c01, 2), "|")
End Function