juiste datum plaatsen dag maand en jaar liefst maand voluit

[athestreet]

Hallo,

Ik heb tot nu dit staan. Alleen maand en dag worden nog steeds verwisseld? Hoe kan dag maand en jaar krijgen?

Wend
Application.ScreenUpdating = True
mydate = vbNullString
While Not IsDate(mydate)
mydate = vbNullString
mydate = InputBox("Datum Salarisbetaling dd-mm-jjjj")
Wend
Cells(1, 5) = mydate

Later ook nog onderstaande regel bijgevoegd maar maakt niet uit
Format("dd/mm/yyyy")

 

[edmoor]

Probeer deze:

Cells(1, 5) = CStr(mydate)

 

[athestreet]

reactie

Bedankt voor uw reactie.
Het werkt gedeeltelijk.
Naam maand komt er nu netjes op te staan. Alleen nog dag en maand wordt helaas nog omgedraaid in waardes. Het invullen van 02-09-2019 vertaald in 09-februari-2019?

 

[loek010]

Probeer het zo eens

Dim LstrDate As String
Dim LDate As Date
LstrDate = Format(Date, "d-mmmm-yyyy")
LDate = CDate(LstrDate)
Cells(1, 5) = LDate

 

[athestreet]

Probeer het zo eens

Dim LstrDate As String
Dim LDate As Date
LstrDate = Format(Date, "d-mmmm-yyyy")
LDate = CDate(LstrDate)
Cells(1, 5) = LDate

Werkt super. Alleen moet ikzelf elke keer een datum in kunnen brengen. Wat moet ik wijzigen?

 

[loek010]

Oké dan zie mijn voorbeeld :

 

[HSV]

Of:

Private Sub CommandButton1_Click()
Dim Ldate As String
Ldate = InputBox("Datum Salarisbetaling dd-mm-jjjj")
  If IsDate(Ldate) Then Cells(1, 5) = Format(Ldate, "dd mmmm yyyy")
End Sub

 

[athestreet]

Oké dan zie mijn voorbeeld :

Bedankt voor uw hulp. Heb ik toegepast

 

[athestreet]

Bedankt voor uw hulp. Heb ik toegepast

 

[loek010]

Pas de code in post #7 van HSV toe dan hoef je ook de celeigenschappen niet aan te passen