Datum- Tag und Jahr tauschen

[snb]

Code:

Sub M_snb()
   For Each it In Columns(1).SpecialCells(2).Offset(1).SpecialCells(2)
      it.Value = CDate(Replace(Replace(Replace(it.Text, " ", ""), ".", "/", , 1), ".", "/20"))
      it.NumberFormat = "[$-407]dd.mm.yyyy"
   Next
End Sub