Dynamische combobox

[LauravT]

Hallo,..

Ik heb een formulier gemaakt met daarin een aantal comboboxen.
De mogelijke opties voor de combobox kan uitgebreid worden, naar mate er dingen aan de database wordt toegevoegd.

Ik heb in Kolom B van Lijstjes de namen staan. Deze zou ik graag terug willen zien in mijn combobox.
Echter de namen kunnen vaker dan 1x voorkomen en er kunnen in de loop der tijd namen toegevoegd worden.
Graag zou ik zien dat er geen dubbele waarden worden weergegeven en de nieuw toegevoegde namen gewoon worden weergegeven.

Weet iemand hoe ik dit het beste kan benaderen?

MVG

 

[gast0660]

Post eens een vbbestandje

 

[LauravT]

Bekijk bijlage 284749Heb even gauw een testbestand in elkaar gezet!

 

[VenA]

Bv

Private Sub UserForm_Initialize()
ar = Blad1.Cells(1).CurrentRegion
For j = 2 To UBound(ar)
  If InStr(1, c00, ar(j, 1)) = 0 Then c00 = c00 & "|" & ar(j, 1)
  If InStr(1, c01, ar(j, 2)) = 0 Then c01 = c01 & "|" & ar(j, 2)
  If InStr(1, c02, ar(j, 3)) = 0 Then c02 = c02 & "|" & ar(j, 3)
  If InStr(1, c03, ar(j, 4)) = 0 Then c03 = c03 & "|" & ar(j, 4)
Next j
ComboBox1.List = Split(Mid(c00, 2), "|")
ComboBox2.List = Split(Mid(c01, 2), "|")
ComboBox3.List = Split(Mid(c02, 2), "|")
ComboBox4.List = Split(Mid(c03, 2), "|")
End Sub

 

[LauravT]

Thanks,..
Ik krijg dit helaas niet werkend (zal volledig aan mij liggen)!

Maar heb inmiddels al een andere oplossing gevonden door middel van een (dynamisch) bereik een naam te geven.

=VERSCHUIVING(Blad1!$C$2;0;0;AANTALARG(Blad1!$C$2:$C$101)-AANTAL.LEGE.CELLEN(Blad1!$C$2:$C$101);1)

Toch bedankt voor de genomen moeite!