omgekeerde datum

[Egbert12345]

Beste forummers,

Ik heb een macro geschreven met een inputbox die een datum verwerkt. De datum wordt echter omgedraaid. In het voorbeeld heb ik een uitgeklede versie opgenomen.

Als ik in de inputbox de datum 01-09-2018 invul dan wordt die als 09-01-2018 verwerkt. Wat doe ik verkeerd?

gr Egbert

 

[JanBG]

Heb je code aangepast:

Sub Openstaande_posten()
Dim gezochteDatum As Date

Message = "Geef de EINDDATUM op van de selectie. " & (Chr(13)) & (Chr(13)) & "Let op de juiste notatie (tussenliggende streepjes). " & (Chr(13)) & (Chr(13)) & " "    ' Stel vraag in.
Title = "Mutaties ten behoeve " & Naam_Blad & ""    ' Stelt titel in.
MyValue1 = InputBox(Message, Title, Default)
If MyValue1 = "" Then MsgBox "De bewerking is geannuleerd.": End

Range("AA1") = [COLOR="#FF0000"]CDate(MyValue1)[/COLOR]
    gezochteDatum = Range("AA1")

Range("A1") = gezochteDatum


End Sub

Zo zou het moeten werken

 

[edmoor]

@Egbert:

VBA werkt altijd volgens Amerikaanse standaarden.
De datumnotatie is dan dus mm/dd/yyyy en moet je eerst converteren.
JanBG liet al zien hoe je dat kan doen.

 

[snb]

Zonder overbodigheden:

Sub Openstaande_posten()
   Range("A1") = cdate(InputBox("EINDDATUM van de selectie: dd-mm-jjjj",  "Mutaties voor " & activesheet.name))
End Sub

 

[Egbert12345]

Bedankt voor de moeite en snelle reacties.

gr Egbert