Aktuelles Datum in Userform

[antonio]

Guten Morgen

Habe in Userform diese TextBox
.Cells(leZeile, 1) = CDate(TextBox1)
Das Problem dabei
Wenn ich die Eingaben mache und ich beim Speichern vergesse das Datum einzugeben dann erscheint die Fehlermeldung
Laufzeitfehler 13 typen unverträglich
Wie kann ich vorgehen damit ich sobald die Userform öffnet das aktuelle Datum auch anzeigt
Vielen Dank vorab für die Infos

[Elex]

Hi

Textbox1 = Date
oder mit Zeit
Textbox1 = Now


Gruß Elex

[RPP63]

Moin!
Prüfe zunächst, ob überhaupt ein Datum vorliegt:
If IsDate(TextBox1) Then .Cells(leZeile, 1) = CDate(TextBox1)

Edit: Habe den letzten Satz überlesen!
Daher schließe ich mich natürlich der Antwort von Elex an.

Gruß Ralf

[antonio]

Vielen Dank für die antworten
muss ich diese Zeille löschen und nur = Date hinzufügen?


.Cells(leZeile, 1) = CDate(TextBox1)

[RPP63]

Probiere es doch einfach aus!
Bei meinem Einzeiler hast Du (nachträglichen) Einfluss auf das Datum, Cells(x, y) = Date weist das aktuelle Datum starr zu.

Gruß Ralf