konvertere dato i excel

Denne konverterer i kolonne A ret alle A til aktuel kolonne

Sub Konvert()
Dim x
For x = 1 To Cells(65500, "A").End(xlUp).Row
Cells(x, "A").Value = CDate(Cells(x, "A").Value)
Next
End Sub

Hvis jeg skriver 120202 i A1 og kører makroen ændres A1 til 05-02-2229

...det burde være 12-02-2002

ok prøv denne - marker datoer og kør kode

Sub RetDato()
On Error Resume Next
For Each c In Selection
d = c.Value
If Len(d) = 5 Then d = "0" & d
c.Value = DateSerial(Right(d, 2), Mid(d, 3, 2), Left(d, 2))
Next
End Sub

super! Det lader til at funke.

Du har endda taget hensyn til foranstillet nul.
Kan du kort forklare hvad du gør?
Og husk at sende svar....

Jeg har en kolonne med ca. 100 af disse datoer - hvad vil være lettes at gøre? Kan jeg markere hele søjlen eller bliver jeg nødt til at køre een af gangen?

Det er vel noget med:

move en ned
hvis der stadig står noget i cellen så
kør vb-script igen
etc....

koden påvirker de celler du markerer

Det kan også laves med nedenstående formel (med CPR-nummeret i celle A1):

=DATE(IF(VALUE(MID(A1;5;2))<9;MID(A1;5;2)+2000;MID(A1;5;2)+1900);MID(A1;3;2);LEFT(A1;2))

Den har ganske vist det problem at man ikke kan se forskel på en hundred-årig og en 0-årig, men det problem ligger i CPR-nummeret og ikke i formelen

Du er bare sej!!
Virker 100 %.

Dog kunne jeg ikke få det til at funke på den danske excel, men virker fint på uk versionen - mange tak. Husk at sende et svar så du kan få nogle point.

Hvis det ellers er mig du mener, er her et svar

ok