Wat gaat hier niet goed

[NajKwin]

Goedenavond,

Ik gebruik onderstaande code in 2 verschillende excel bestanden.

Private Sub CommandButton3_Click()

Dim sh As Worksheet
Set sh = ThisWorkbook.Sheets("Blad1")
Dim n As Long

Application.ScreenUpdating = False
n = sh.Range("A" & Application.Rows.Count).End(xlUp).Row

 

sh.Range("e" & n + 4).Value = Me.textbox1.Value
Columns("E").Autofit

Me.TextBox1.Value = ""


    Application.ScreenUpdating = True
Unload Me

End Sub

Dit is om een datum in te voeren:

Als ik als invoer geef 15-11-2019 dan geeft hij bij de ene weer 15-11-2019 en bij de andere 15 november 2019
terwijl alle bij de cellen de cel eigenschappen staan op dd mmmm yyyy

Wie kan mij helpen om te zorgen dat de invoer komt staan op het dd mmmm yyyy format


GR

 

[tkint]

Beste,

Al eens de instructie Format toegepast op de invoer? Hier wat meer uitleg.

 

[SjonR]

Zo?

sh.Range("e" & n + 4).Value = Format(textbox1.Value,"dd mmmm yyyy")

 

[VenA]

Veel te veel code

Private Sub CommandButton1_Click()
  If IsDate(TextBox1) Then
    With Sheets("Blad1")
      .Columns(5).NumberFormat = "dd mmmm yyyy"
      .Range("E1:E" & .Cells(Rows.Count, 1).End(xlUp).Row + 4) = Format(TextBox1, "mm-dd-yyyy")
    End With
  End If
End Sub

 

[HSV]

Dit zal ook wel werken in de code van @VenA.

.Range("E1:E" & .Cells(Rows.Count, 1).End(xlUp).Row + 4) = cdate(TextBox1)

 

[NajKwin]

Heren / Dames,

hartelijk dank