Office: Textbox automatisch mit Werten füllen

Guten Tag an Alle,

ich habe eine UserForma entwickelt, die einige Textboxen
enthält, die für die Dastenerfassung gedacht sind. Ich
möchte jetzt die Bearbeitung insoweit erleichtern, dass
die Textbox mit dem Erfassungsdatum vom System auto-
matisch gefüllt wird und in einer anderen Textbox auto-
matisch eine fortlaufende Datensatznummer eingetragen
und in das Datenblatt übertragen wird. Im Augenblick
habe ich:

Private Sub CommandButton1_Click()
Set frm1 = UserForm1
Sheets("Interessenten").Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
With frm1
ActiveCell.Value = .TextBox1.Value ' Anrede
ActiveCell.Offset(0, 1) = .TextBox2.Value ' Vorname
ActiveCell.Offset(0, 2) = .TextBox3.Value ' Name
ActiveCell.Offset(0, 3) = .TextBox4.Value ' Adresse
ActiveCell.Offset(0, 4) = .TextBox5.Value ' PLZ
ActiveCell.Offset(0, 5) = .TextBox6.Value ' Ort
ActiveCell.Offset(0, 6) = .TextBox7.Value ' FON
ActiveCell.Offset(0, 7) = .TextBox8.Value ' Mail
ActiveCell.Offset(0, 8) = .TextBox9.Value ' Erfasst am
ActiveCell.Offset(0, 9) = .TextBox10.Value ' geb. am
ActiveCell.Offset(0, 10) = .TextBox11.Value ' Kursauswahl
End With
Sheets("Eingang").Activate
End Sub

Funktioniert soweit auch prima. Aber wie oder wo sag ich z.B. der
Textbox9, dass sie das aktuelle Systemdatum anzeigen/und schreiben
soll? ich glaube, das ich dass in den Eigenschaften machen Kann.
W"eiss aber nicht wie und wo. Kann mir da jemand einen/ zwei
Schubse in die richtigen Richtung geben ?

Danke schön und eine zauberhafte Woche wünscht Euch
michaela.bln

:)

 

Hi Michaela,

.TextBox9 = Now

 

hi michaela,

das ist ja dann die falsche prozedur. hier liest du ja nur die werte der textboxen aus. aber zurück zu deiner frage, sieh dir mal die funktion Date an. oder wenn du auch die zeit brauchst, dann siewh dir mal Now an.

 

hiho

Code: