Opgelost Automatisch aanvullen combobox

[Schipper1994]

in de bijlage vind je een bestandje.
Als ik in de Combobox A begin te typen zou ik graag hebben dat die automatisch begint aan te vullen. Indien mogelijk ook als ik een deel van de zin begin te maken bv
"a is naar B"

Als ik dan het woord "naar" typ zou ik deze ook automatisch aangevuld hebben.

 

[snb]

Wat is het verband tussen het werkblad en het userform ?

 

[Schipper1994]

Ik heb het bestand wat aangepast en ik stel men vraag opnieuw. Het verband tussen werkblad en userform maakt niet uit denk ik.
Werkblad is bij een database.
Ik wil in die database iets opzoeken met een combobox.
Ik heb er nu even namen ingezet om het duidelijk te maken.
Als ik nu de voornaam begin te typen vult hij automatisch aan. Maar ik zou ook graag op die achternaam kunnen zoeken.
Dus als ik in de combobox begin te tippen "Janssens". dan wil ik de bijde janssens zien zodat ik daar kan in selecteren en de juiste record in het combobox te krijgen.

 

[HSV]

MatchEntry op 2-MatchEntryNone

Private Sub ComboBox1_Change()
 ComboBox1.List = Filter(Application.Transpose([tabel1]), ComboBox1.Text)
 ComboBox1.DropDown
End Sub

 

[Schipper1994]

HSV,

Dank u.
Dit werkt maar is het ook mogelijk om dit NIET hoofdletter gevoelig te maken?

 

[HSV]

Private Sub ComboBox1_Change()
  ComboBox1.List = Filter(Application.Transpose([tabel1]), ComboBox1.Text, , vbTextCompare)
  ComboBox1.DropDown
End Sub

Of:

Private Sub ComboBox1_Change()
  ComboBox1.List = Filter(Application.Transpose([tabel1]), ComboBox1.Text, , 1)
  ComboBox1.DropDown
End Sub

 

[Schipper1994]

Wauw Thanx..
Werkt Perfect.

Dank u

 

[Schipper1994]

ook nog een oplossing als mijn tabel meerdere kolommen telt?
Dan geeft die een foutmelding.
Ik heb enkel kolom A nodig maar de tabel bevat 10 kolommen

 

[HSV]

Kolom A van de tabel bevat ook een naam.

 

[Schipper1994]

ik heb hem inderdaad benoemd en dan enkel die genoemd. nu is het inorde. DANK U