Datumnotatie VBA

[Marky76]

Beste,

Volgende code geeft als datum 06-01-2007 weer ipv 01-06-2007, omdat het de amerikaanse notatie weergeeft. Hoe kan ik de code aanpassen opdat hij toch 01-06-2007 geeft, zonder natuurlijk de datum op voorhand te bepalen.

Public Sub MijnFormat3()
Range("B3") = Format(DateSerial(Year(Date), Month(Date), 1))
'Dit geeft 06/01/2007 notatie zou moeten zijn 01/06/2007
End Sub

Groeten, Mark

 

[Justes]

Hallo Mark,

Via celeigenschappen>datum>dmj

Gr Justes

 

[Wigi]

Public Sub MijnFormat3()
Range("B3").Value = DateSerial(Year(Date), Month(Date), 1)
Range("B3").NumberFormat = "dd/mm/yyyy"
End Sub

Wigi

 

[Marky76]

Wigi,

Weer bijgeleerd, begin het stilaan leuk te vinden, dankzij de mensen die helpen, anders
zou het snel ontmoedigend werken.

Bedankt Wigi, Mark

 

[jpvs]

Voor meer info zie : http://www.newbytes.be/
klik hier op Excel
ga naar beneden en bij Lessen Nr5 Datums in VBA

Pierre