Combobox "dynamisch" vullen

[Jemp]

Hallo

Ik zou graag een Combobox in een Userform vullen met de jaartallen vanaf 2014 tot het huidige jaar.
Dit jaar dus tot 2018, volgende jaar tot 2019 enz
Kan dit zonder dat ik een lijst aanleg?

Groetjes
JP

 

[SjonR]

zo?

For i = 14 To Right(Year(Date), 2)
    ComboBox1.AddItem "20" & i
Next

 

[snb]

Private Sub Userform_Initialize()
  combobox1.List = [index(row(offset(A2014,,,1+year(today())-2014)),)]
End Sub

 

[Jemp]

Hoi SjonR en Snb

Beide voorstellen werken uitstekend. Oplossing van SNB is natuurlijk wel directer.

Wanneer ik de gebruikers ook de mogelijkheid wil geven om alle jaartallen te kiezen (via "All") in de dropbox kan ik de oplossing van SjonR aanpassen als volgt :

cmbJaartal.AddItem "All"
For i = 14 To Right(Year(Date), 2)
cmbJaartal.AddItem "20" & i
Next

SNB, hoe moet ik jouw code aanpassen om hetzelfde te bekomen ?

Alvast bedankt voor de eerste super snelle antwoorden !!

JP

 

[snb]

Gebruik svp code markeringen (Tags) rondom VBA code.

De methode additem (waarom die naam) is niet bedoeld voor het vullen van een combobox/listbox.

Private Sub Userform_Initialize()
  With ComboBox1
    .List = [index(row(offset(A2014,,,2+year(today())-2014)),)]
    .List(.ListCount - 1) = "all"
  End With
End Sub

 

[Jemp]

Sry, volgende keer gebruik ik zeker tags rond de code.

Met dank voor de snelle oplossing.


Groetjes
JP

 

[HSV]

mosterd...

.List = Evaluate("row(2014:" & Year(Now) + 1 & ")")

of:

 .List = [row(offset(A2014,,,year(now())-2012))]