datum vandaag in textbox weergeven

[renew000]

Hallo Experts,

Ik ben een beginnend VBA gebruiker en loop gelijk al tegen een probleem aan dat wellicht makkelijk op te lossen is.
Ik heb een formulier (met een meerbladig component) gemaakt.
In dat formulier staat een textbox welke ik graag wil voorzien van de datum van vandaag met de notatie 21-01-2012).
Er staat behalve de textbox voor de datum nog een textbox voor vrij tekst.

Deze datum zal samen met de tekst ook nog in blad2 moeten worden weggeschreven wanneer er op de knop word gedrukt. De datum zal dan in kolom A moeten komen en de tekst in kolom B.

Hoop dat jullie me hiermee op weg kunnen helpen.

Voor het gemak heb ik een voorbeeldbestandje ingesloten waar enkel de besturingselementen aan zijn toegevoegd.

Alvast dank en groetjes
Renew

 

[Niels28]

zo kan dat:

Private Sub CommandButton1_Click()
Dim irow As Integer
With Sheets("blad1")
irow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(irow, 1) = CDate(TextBox1.Value)
.Cells(irow, 2) = TextBox2.Value
End With
End Sub



Private Sub UserForm_Initialize()
TextBox1.Value = Format(Date, "dd-mm-yyyy")
End Sub

Niels

 

[snb]

zonder variabele:

Private Sub CommandButton1_Click()
  Sheets("blad1").Cells(Rows.Count, 1).End(xlUp).offset(1).resize(2)= array(CDate(TextBox1.Text),TextBox2.Text)
End Sub