CDate leer --> Laufzeitfehler 13
20.06.2020 20:53:41
MarC
ich habe Textboxen in denen man ein Datum eingeben kann. Das Datum wird dann in eine Zelle übertragen. Wenn die Textbox leer ist erhalte ich den Laufzeitfehler 13. Meine Lösung:
.Cells(LastRow, 26).Value = CDate(TextB2.Value)
Else
.Cells(LastRow, 26).Value = ""
End If
Gibt es hierfür auch eine kürzere Lösung oder muss ich für alle 20 Textboxen eine If Abfrage?Gruß Marc