Registriert seit: 19.03.2016
Version(en): office2010
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
Registriert seit: 16.08.2017
Version(en): 2007 / 2010 / Web
Hi
Textbox1 = Date
oder mit Zeit
Textbox1 = Now
Gruß Elex
![[-]](https://www.clever-excel-forum.de/images/collapse.png)
Folgende(r) 1 Nutzer sagt Danke an Elex für diesen Beitrag:1 Nutzer sagt Danke an Elex für diesen Beitrag 28
• antonio
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
10.03.2019, 12:06
(Dieser Beitrag wurde zuletzt bearbeitet: 10.03.2019, 12:07 von 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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• antonio
Registriert seit: 19.03.2016
Version(en): office2010
Vielen Dank für die antworten
muss ich diese Zeille löschen und nur = Date hinzufügen?
.Cells(leZeile, 1) = CDate(TextBox1)
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28
• antonio
