Combox vullen en een waarde selecteren

[Sjoef]

Hallo, ik heb een userform met een combobox die ik vul (bij activate document) met jaartallen.

With ComboBox1
.AddItem "2010"
.AddItem "2011"
.AddItem "2012"
.AddItem "2013"
.AddItem "2014"
.AddItem "2015"
.AddItem "2016"
.AddItem "2017"
.AddItem "2018"
.AddItem "2019"
End With

wat ik nu zou willen is dat er gekeken wordt naar het huidige jaartal en dan de bijbehorende list nummer weergeeft minus 1 jaar. Dus Now() is 2017 en dan 2016 weergeven in de combobox.

We kan mij helpen?

JoZ

 

[snb]

gebruik initialize:

Private Sub Userform_initialize()
   combobox1.list=[row(2010:2019)]
   combobox.listindex=6
   combobox1.listindex=year(date)-combobox1.list(0,0)-1
End Sub

zie ook: http://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[Sjoef]

allereerst bedankt voor de snelle reactie. Alleen krijg ik een foutmelding. (Externe naam is niet gedefinieerd) Verder vraag ik me af als het straks 2018 is. Dan moet het listIndex = 7 worden volgens mij.

 

[edmoor]

Of voor het selecteren van de regel:
ComboBox1.ListIndex = Right((Year(Date) - 1), 1)

 

[Sjoef]

Yes.....Edmoor dat is um. Beide bedankt voor de hulp.