combobox met dynamische lijst; waarden filteren, keuze beperken

[Margot1]

Hallo,

Ik heb een userform met meerdere comboboxen (en nog heel wat andere toeters en bellen)

Het werkt. Wat? nou dit (in t kort)...
Iemand
-opent het userform
-maakt in de eerste combobox een keuze (nummer)
-de al eerder ingevulde textboxes, selectievakjes etc worden ingevuld op basis van deze eerste keuze
-de persoon kan wijzigingen aanbrengen in het userform en deze overschrijven de gegevens na een druk op een button.
-userform wordt leeg gemaakt en is klaar voor het volgende nummer.

De lijst met nummers waar de eerste combobox naar kijkt wordt steeds langer. Ik heb hiervoor een dynamische lijst gemaakt (Verschuiving formule in Naam/Bereik)

Op termijn wordt het steeds lastiger om snel het juiste nummer te vinden en te selecteren.

Nu dacht ik aan een combobox erbij die bijvoorbeeld op basis van 'maand waarin het nr is toegevoegd' de selectie smaller maakt (macro met autofilter na keuze in combobox maand is een kleinere selectie in combobox 'nummer')
Volgens mij strookt dit niet met de dynamische lijst want het toepassen van een autofilter doet niks met het aantal waarden dat mij nog getoond worden. (heb het getest in de variant met code en gewoon door het toepassen van een autofilter op de lijst en dan nagaan wat ik in de combobox 'nummer' overhoud. Jammer geen smaller resultaat.

Wie weet een andere oplossing om de persoon die de selectie maakt uit de hele lijst met nummers te helpen?

Ik hoop dat het lukt zonder voorbeeld document. Anders moet ik even iets fabriceren want het doc waar ik in werk is zwaar en staat vol met gevoelige info.

De reden overigens dat ik voor een combobox gekozen heb en niet voor een listbox is puur cosmetisch. ik heb de style aangepast waardoor het invoeren van een waarde anders dan die in de lijst staan niet mogelijk is.

 

[snb]

Ik hoop dat je geen benoemd bereik gebruikt voor je lijst.

Je kunt de combobox laten starten bij de laatste tien items:

Private Sub Userform_Initialize()
   combobox1.list=sheets(1).cells(1).currentregion.value
   combobox1.listindex=combobox.listcount-10
end sub

 

[Margot1]

snb. bedankt voor je suggestie. helaas gaat het niet het gouden ei zijn. het moet (helaas) ook mogelijk zijn om oude nummers opnieuw op te selecteren en aan te vullen, hier kan soms zelfs een half jaar tussen zitten.