Datum notatie

[nhojnavslig]

Hallo allemaal,
Als ik vanuit een UserForm een datum naar een werkblad wil schrijven word deze omgezet naar Amerikaans formaat, ....
ik heb dit al eens meer aan de hand gehad, en toen heb ik (ook via dit forum) de oplossing gekregen dmv de onderstaande regel;
Echter in het bijgesloten voorbeeld gaat het alsnog fout, ...!
Kan iemand mij verder helpen ?

Alvast bedankt
John

Private Sub UserForm_Initialize()
TextBox1.Text = Format(Now, "dd/mm/yyyy")
End Sub

 

[JanBG]

Code:

Private Sub CommandButton1_Click()
Rij = Sheets("Blad1").Range("A65500").End(xlUp).Row + 1
        Sheets("Blad1").Range("A" & Rij) = TextBox1.Value
Sheets("Blad1").Range("A" & Rij) = [COLOR="#FF0000"]CDate(TextBox1.Value)[/COLOR]
TextBox1.Value = ""
End Sub

 

[nhojnavslig]

Hallo Jan,

Hartelijk bedankt voor de reactie, ... werkt perfect ! :thumb:

John

 

[HSV]

Waarom schrijf je het twee keer op dezelfde cel weg?

Het blad te benoemen in de code is ook overbodig.
Immers het Userform wordt aangeroepen door een knop op dat blad, en met 'Showmodal = true' kan je niet van blad wisselen.

Private Sub CommandButton1_Click()
 cells(rows.count, 1).end(xlup).offset(1) = CDate(TextBox1.Value)
 TextBox1.Value = ""
End Sub

 

[nhojnavslig]

Hallo Harry,
Die 2e (dubbele) regel had ik zelf ook gezien, ik dacht dat JanBG dit expres had gedaan om het verschil aan te duiden, ...?!
Toen ik Jouw voorbeeldje gebruikte werd de datum weggeschreven als 2 Januari 1900, .... ??
Mijn kennis van VBA reikt echter niet veel verder dan knippen en plakken uit andere voorbeeldjes en vragen/antwoorden van andere mensen.

ik ben daarom blij met elke reactie die ik krijg

John

 

[JanBG]

Beste John,

Het enige dat ik heb gedaan is deze regel:

Sheets("Blad1").Range("A" & Rij) = TextBox1.Value

veranderd in deze regel:

Sheets("Blad1").Range("A" & Rij) = CDate(TextBox1.Value)

 

[nhojnavslig]

Hallo Jan,

En daar was ik ook blij mee, .... want het werkt prima !! :thumb:

John

 

[HSV]

Die ene regel is voldoende, en waarom zou jij 2 januari 1900 krijgen als de code ook met CDate wordt weggeschreven.