Пустое поле пользовательской формы приводит к ошибке рассогласования при использовании CDate ()

Question

Я почти не имею понятия о VBA, но мне было поручено исправить ошибку, поэтому, пожалуйста, разрешите этот очень простой вопрос:

Насколько я могу судить об ошибке, я могу сказать, что записываю пустую ячейку пользовательской формы на лист,Значение должно быть в формате даты, поэтому используется CDate(), но это приводит к

Ошибка времени выполнения 13 - Несовпадение типа / пусто

, когда поле имеет значениепустой.

Как я могу это исправить?

Tabelle1.Cells(lZeile, 128).Value = CDate(TextBox128.Text)

Еще раз извините за основной вопрос

Спасибо!

Answer 1

Проверка даты явно:

If Isdate(TextBox128.Text) then Tabelle1.Cells(lZeile, 128).Value = CDate(TextBox128.Text)