konvertieren ein Datumsformat für über 500 Zeilen mit einem For Next Loop

Question

Ich muss Daten konvertieren (bis zur letzten Zeile) in der Spalte "C" aus dem bestehenden Format 24/01/2016 bis 24.01.2016 Das Ergebnis muss sein im Datumsformat.

Mein aktueller Code ist:

LastRow9 = ws5.Cells(Rows.Count, "C").End(xlUp).Row 
For X9 = 1 To LastRow9 
searchvalue = Cells(X9, "C").Value 
Answer = Split(searchvalue, "/") 
ws5.Cells(X9, "A").Value = Answer 
ws5.Cells(X9, "A").Value = Format(Answer, "dd.mm.yyyy") 
Next X9 

die Antwort i 30.12.1899 erhalten, ist ein wenig weg von der Markierung

Answer 1

die Range.NumberFormat property Ändern Versuchen.

with ws5 
    .range(.cells(1, "C"), .Cells(Rows.Count, "C").End(xlUp)).NumberFormat = "dd.mm.yyyy" 
end with