in Combobox datum kiezen

[tcgjohn]

IK wil 7 dagen vanaf vandaag in de combobox weergeven, zodat ik er een kan kiezen.
Een oplossing is: Me.ComboBox2.Value = Format(Date + 1, "dd-mmm-yyyy"),
vervolgens (...date + 2, "...) etc.

maar dat kan toch ook korter.
Echter de onderstaande code werkt niet. Hij vult de combobox niet. Wat doe ik fout?

Private Sub Combobox2_Change()
Dim i As Integer

For i = 1 To 7

Me.ComboBox2.Value = Format(Date + i, "dd-mmm-yyyy")
Next
End Sub

John

 

[Wigi]

Zo?

Private Sub Combobox2_Change()
Dim i As Integer
For i = 1 To 7
      ComboBox2.AddItem = Format(Date + i, "dd-mmm-yyyy")
Next
End Sub

Wigi

 

[tcgjohn]

datum in combobox

Er treedt een probleem op bij Additem. Er wordt een foutmelding gegeven met Function of Variable verwacht.
Als ik voor combobox2 als rowsource een bereik opgeef met als naam: speeldatum (7 dagen) op blad2 (A2:A9), zie ik de data in de combobox staan. Als ik echter een keuze maakt in de combobox van datum, verandert deze in een (lang) datumgetal. Ik wil gewoon dat hij de juiste datumnotatie aangeeft. Welke oplossing is dan voor mij geschikt?
John

 

[Axel Hagg]

Dag John,

AddItem = is fout en zet de code in Userform1_Initialize anders wordt na elke klik de combobox uitgebreid met een nieuwe lading datums. Tenzij je ComboBox2.Clear opneemt voor het For i = 1 to 7.

Private Sub UserForm1_Initialize()
Dim i As Integer

For i = 1 To 7
ComboBox2.AddItem Format(Date + i, "dd-mmm-yyyy")
Next
End Sub

De datumnotatie wordt ingesteld met Format:
d-M-yy is 5-3-07
d-MM-yy is 5-03-07
dd-MM-yy is 05-03-07
d MMM yyyy is 5 mrt 2007
d MMMM yyyy is 5 maart 2007
ddd MMMM yyyy is ma 5 maart 2007
dddd MMMM yyyy is maandag 5 maart 2007
d MMMM is 5 maart

Zie je de logica? Dus in bovenstaande code wordt de datum: 05-03-2007.

Gegroet,

Axel

 

[Wigi]

AddItem = is fout ...

Klopt, mijn typfout. Sorry.

 

[tcgjohn]

datum in combobox

Het werkt. Bedankt voor de hulp
John