Datumnotatie wel en niet goed

[CorVerm]

Beste mensen,

Ondersaatde code gebruik ik om een lijst met facturen te vullen. De datumnotatie in de lijst is gewoon Europees, maar in het blad waar de factuur staat wordt de datum in de Amerikaanse notatie weergegeven. Kan dat euvel middels een aanvulling op de code verholpen worden?

Private Sub cmdokwsp_Click()
Sheets("Factuurlijst WSP").Select
 Range("C65536").End(xlUp).Offset(1, 0).Select
  ActiveCell.Offset(0, 0).Value = TextBox1.Text
   ActiveCell.Offset(0, 2).Value = TextBox2.Text

Unload Me
 Sheets("Factuur WSP").Select

Dim Msg, Style, Title, Response, MyString
 Msg = "Maak nu eerst de factuur aan"
  Style = vbYes + vbInformation
   Title = "Factuur"
   Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
End If
End Sub
Private Sub UserForm_Initialize()
TextBox1 = Date
End Sub

 

[Cobbe]

Test deze eens:

TextBox1 = Format(Date,"hh:mm:ss")

Cobbe

 

[CorVerm]

Nee Cobbe, dit is de oplossing niet.
Overigens word in het UserForm de datum wel correct weergegeven.
Wellicht bedoelde je:

TextBox1 = Format(Date,"dd-mm-yy")

i.p.v.

TextBox1 = Format(Date,"hh:mm:ss")

Dank voor het reageren.

 

[HSV]

Hallo Cor,

Test deze eens.

ActiveCell = FormatDateTime(TextBox1, vbGeneralDate)

Overigens is Activecell.offset(0,0) hetzelfde als Activecell.

 

[HSV]

Ik denk dat deze beter gaat.

ActiveCell.Offset(, 2) = DateValue(TextBox2)

 

[CorVerm]

Bedankt Harry, deze is het geworden:

ActiveCell.Offset(, 0) = DateValue(TextBox1)

Nogmaals dank.

 

[HSV]

Graag gedaan Cor,

Maar dit is hetzelfde.

ActiveCell = DateValue(TextBox1)

als:

ActiveCell.Offset(, 0) = DateValue(TextBox1)

Je doet nl. niets met je Offset (nul rijen omhoog of omlaag en nul kolommen opzij).

 

[CorVerm]

Is mooi Harry,

Weer wat geleerd.