Error "ListIndex = -1"

Hi, I have a userform with a combobox and listboxes, coded as shown below. See Excel file in attachment.
The userform is linked to a named table in worksheet "Data". The code returns an error when the named table is empty, ie. when the ListIndex = -1, ie. when the DatabodyRange is 0.
I cannot seem to figure out a way to make this code errorproof when the table does not contain any data/listrows. Do any of you know?

Please Login or Register  to view this content.

Hello
Try this

Please Login or Register  to view this content.

Bye bye,
Marius

Thanks for your answers guys but all of the above suggestions return Runtime errors 9 or 91 ((LObj.DataBodyRange.Value) = <Object variable or With block variable not set>) when typing something in the combobox.
Any idea why?

Hi torachan, could you specify which code is spurious? I deleted the entire Combobox1_Change event and this returns Runtime error 9 - Subscript out of range ("vbTextCompare = 1"). My VBA knowledge is limited.

Thanks for the reply Torachan but your code unfortunately removed 2 crucial features of the userform: being able to search in the combobox by typing the first letters (autocomplete search); and being able to type a new entry in the combobox which is then also added into the named table.

The user only uses the userform. The data sheet is hidden and not meant for manual editing.

Thanks Torachan!