Datum combobox volgend jaar

[Roxannedw]

Goedemorgen,

Ik heb een bestand met roosters voor 2018. Ik maak hier gebruik van een combobox om de datum te kiezen, dit is de code voor januari:

Private Sub UserForm_Initialize()
txtdatum.List = [transpose(text(row(1:31),"dd-mmm"))]
End Sub

Nu wil ik alvast een bestand maken voor 2019, maar in deze combobox staan de data van het huidige jaar (2018 dus).
Kan iemand mij vertellen hoe ik deze code kan aanpassen zodat de combobox wordt gevuld met de data van 2019?

Alvast bedankt!

Groetjes Roxanne

 

[SjonR]

Jouw weergave in de combobox geeft alleen dag plus maand. Aangezien januari 2019 volgens mijn kalender ook 31 dagen heeft begrijp ik je vraag niet.

 

[Roxannedw]

Hi SjonR, dank voor je antwoord.

Wanneer ik in de lijst bijv. 6 januari kies, dan wordt dit in de tabel weggeschreven als 'zaterdag 6 januari 2018'.
Ik heb een voorbeeldbestand toegevoegd in de bijlage.

Bekijk bijlage voorbeeld.xlsm

 

[SjonR]

Excel zal er bij het ontbreken van een jaartal het huidige jaartal achter zetten.

probeer dit eens voor januari 2019 (een datum in excel is een getal gerekend vanaf 1-1-1900)

  txtdatum.List = [transpose(text(row(43466:43496) ,"dd-mmm-yy"))]

 

[Roxannedw]

Het werkt! Bedankt!!