Okay, nu snap ik ListObject beter, dank daarvoor.

Verander Change in Click, zie mijn voorbeeld in een vorige post.

Idd, nu krijg ik geen foutmelding, maar het code vak wordt ook niet hersteld, daar blijft dus een code staan die ook weg zou moeten als de combo leeg is... Ook een lege tabelrij brengt nu geen soelaas

Ja dat werkt!! Dank je wel... Iedereen fijn uiteinden en een heel goed begin van 2019 gewenst...

Je eerste suggestie is korter, en ik begrijp die ook... Ik snap dat VBA vele wegen heeft die bewandeld kunnen worden om hetzelfde resultaat te krijgen. Ik snap ook dat ik nog heerlijk veel kan leren

Toch nog even terugkomend op mijn foutmelding, genoemd in #13..

Doordat ook ik redelijk lui ben aangelegen tik ik liever in de combobox een letter om zo het juiste resultaat te verkrijgen, echter type ik een verkeerde letter dan komt die fout weer terug... is er een soort van error afvang mogelijk dat deze wel aangeeft dat ik iets verkeerd type maar dat niet gelijk de gehele routine blokkeert?

ik trachte iets te creeren als

Private Sub C_001_Change()
    On Error Goto eind
    If C_001.Value <> "" Then TxtCode_1.Value = C_001.Column(1)
    If C_001.Value = "" Then TxtCode_1.Value = ""

eind:
    MsgBox "Er gaat iets mis"
    exit sub
End Sub

Maar dat geeft bij iedere actie op deze combobox de melding dat er iets mis gaat en nog steeds de critical foutmelding wanneer ik bijvoorbeeld een "y" type ipv de "t"

voor de volledigheid hier mijn bestand nogmaals

Dat heeft geen resultaat

On Error Resume Next
Volstaat!