Office: combobox mit loop füllen

Hallo

Ich habe eine kurze Frage. Ich möchte eine combobox mit Jahre füllen: Von 2011 aufwährts (bis heutiges Jahr).
Wie füllt man eine solche combobox, angenommen die combobox heisst cboJahr?

Grüsse
Maria

 

Hi Maria,

Code:

   Dim lngJahr As Long
   For lngJahr = 2011 To Year(Date)
      ComboBox1.AddItem lngJahr
   Next lngJahr

Bis später,
Karin

 

Hallo Karin

Vielen Dank!

Liebe Grüsse
Maria