Excel VBA datumformat

[dianco]

Hallo allemaal,

Ik heb in een Excel VBA public blad de volgende code staan:
Sub setDate(sheet As Worksheet)
'Fill cell 2,2 with the value getDate
sheet.Cells(2, 2).Value = Format(Now, "dd-mm-yy")
End Sub

Deze wordt ook opgeroepen doormiddel van:
Private Sub Worksheet_Activate()
Call setDate(ActiveSheet)
End Sub

Nu is mijn probleem:
Hij vult het alsnog in op de amerikaanse manier, ofterwijl "mm-dd-yy"
Als ik hier "dd-mmm-yy" van maak, wordt het wel correct uitgevoerd, alleen dan is het probleem dat die in plaats van datum als tekst genoteerd wordt en dus niet gefilterd kan worden.
Iemand enig idee hoe ik het voor elkaar kan krijgen dat mijn gegevens wel als dd-mm-yy worden doorgestuurd?

Alvast bedankt!
Dianco

 

[gast0660]

Zo?

Cells(2, 2).Value = CDate(Now)

 

[dianco]

Kijk is aan, precies wat ik zocht

Danku!

 

[gast0660]

Mooi zo:thumb:

Suc6

 

[jkpieterse]

Of:

Cells(2, 2).Value = Date