Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
If txtGeburtstag.Text = "" Then
rngRow.Cells(, colAtGeburtstag).Value = ""
ElseIf IsDate(txtGeburtstag.Text) Then
rngRow.Cells(, colAtGeburtstag).Value = CDate(txtGeburtstag.Text)
Else
End If
Sub setDateCellFromFormField(byRef iFormField, byRef ioTargetCell As Range)
If iFormField.Text = "" Then
ioTargetCell.Value = ""
ElseIf IsDate(iFormField.Text) Then
ioTargetCell.Value = CDate(iFormField.Text)
End If
End Sub
setDateCellFromFormField txtGeburtstag, rngRow.Cells(, colAtGeburtstag)