VBA Code auch auf leeres Feld reagieren

[Yaslaw]

Fehlermeldung?

 

[josef24]

Habs nochmal laufen lassen mit f. Hinweis: 13 Typenunverträglichkeit. Die Spalte ist als Datumsformat gespeichert. Ich habe das Datum gelöscht, hierbei trat der Fehler auf. Wenn ich es nur verändere passt alles.

 

[josef24]

Danke für die Unterstützung, und so hab ich's hinbekommen. Lässt sich auch beliebig oft wiederholen. Gruß Josef
Mein Erfolgserlebnis:

If txtGeburtstag.Text = "" Then
    rngRow.Cells(, colAtGeburtstag).Value = ""
ElseIf IsDate(txtGeburtstag.Text) Then
    rngRow.Cells(, colAtGeburtstag).Value = CDate(txtGeburtstag.Text)
Else
End If

 

[Yaslaw]

Und wenn du das mehrfach brauchst, dann mache eine Funktion draus

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

und der Aufruf im Code

setDateCellFromFormField txtGeburtstag, rngRow.Cells(, colAtGeburtstag)

 

[josef24]

Danke für die zusätzliche Codeform, wäre wahrscheinlich wesentlich einfacher zu händeln wenn mehrere Datumsfelder betroffen sein könnten. Bin nicht so fit um es richtig einzuordnen. Gruß Josef