Hallo ich schreibe mit

lngErsteFreie = Cells(Rows.Count, "A").End(xlUp).Row + 1
For intSpalte = 1 To 5
Cells(lngErsteFreie, intSpalte).Value = Controls("TextBox" & intSpalte)
Next

die textboxen in die Zelle
leider wird in Spalte 4 das nicht als Datum erkannt
jetzt hab ich schon
Cells(lngErsteFreie, 4).NumberFormat = "DD.MM.YY"
dazu geschrieben
geht aber leider nicht
Könnt ihr mir helfen ?
Wenn ich die Komplette Spalte formatiere geht das auch nicht.
Da sich immer wieder zeilen gelöscht werden