datum werkt nietmeer

[Timmy]

ik hier weer

Hallo experts :thumb:


Ik heb een keuzelijs met invoervak gemaakt waarin de datums staan van de voorbije dagen

Private Sub UserForm_Initialize()
With ComboBox2
.AddItem Date
.AddItem Date - 1
.AddItem Date - 2
.AddItem Date - 3
.AddItem Date - 4


End With

End Sub

Als ik thuis mijn macro wil laten lopen werkt dit niet
pc stageplaats: win2000pro eng, excel 2000 nl
thuis winxp home, excel 2003 beide nl
nog een kleinigheid is de notatie van de datum
die staat nu 04-25-05 die wil ik als 25-04-05 hebben

gegroet

Timmy

 

[Guus2005]

Probeer dit eens:

AddItem Format(Date, "dd-mm-yy")
AddItem Format(Date -1 , "dd-mm-yy")

Zou moeten werken.

Probeer anders

AddItem Format(DateAdd("d",-1,Date), "dd-mm-yy")

Weest gegroet,
Guus

 

[Timmy]

Heb dit geprobeerd maar dit lukt nog steeds niet

gegroet


Timmy

 

[joost verdaasdo]

Geplaatst door Timmy
Heb dit geprobeerd maar dit lukt nog steeds niet

Hai,

Beide opties van Guus werken dus volgens mij ben jij niet geheel duidelijk wat er niet werkt.

Het lijkt erop dat jij iets met het resultaat uit de combo wilt doen en dat het daar fout gaat.

VBA spreekt Engels in wil daarom ook ten alle tijden een engelse datum als je iets specifieks met datums in VBA wilt doen.

Maar goed ik heb van Guus zijn code dit gemaakt:

Private Sub UserForm_Initialize()
Dim i As Integer

    With Me.ComboBox1
       .AddItem Format(Date, "dd-mm-yy")
       
       For i = 1 To 10
           .AddItem Format((Date - i), "dd-mm-yy")
       Next
    End With
End Sub

Zie bijlage voor werkend voorbeeld.

Ben benieuwd of deze inderdaad niet werkt bij jou en zo ja welke fout je eventueel dan krijgt...of wat je dus anders wilt.

See Yah! :thumb:

 

[Timmy]

na vele omwegen is het dan toch gelukt

ik heb volledig mijn user form, macro hermaakt en
nu lukt het

bedankt voor jullie goede reacties:thumb:

Timmy