Ændre dato i excel?

F.eks.:

Sub konverter()
    ejdato = Mid(Cells(3, 1), 2)                'henter dato fra cellen (eks. C3)
    dato = konverterDato(ejdato)
    Cells(3, 1).Select
   
    Selection = dato
    Selection.NumberFormat = "d\/m/yyyy"        'leverer dato i redigeret format
End Sub
Private Function konverterDato(ejdato)
Dim år, måned, dag
    år = Left(ejdato, 4)
    måned = Mid(ejdato, 5, 2)
    dag = Right(ejdato, 2)
    konverterDato = CStr(dag) + "-" + CStr(måned) + "-" + CStr(år)
End Function

Super... hvordan laves den så dynampsk så den den tager og konveterer det jeg har indremmet?
mvh Lars

Du tænker på at markere et område med Ddatoer, der så konverteres??

Konverterer markerede områder m/Ddatoer:

Sub StartKonv()
    ActiveWorkbook.Sheets("Ark1").Activate
    For Each c In Selection.Cells
        ejdato = Mid(c.Value, 2)                    'henter dato fra markeret cell
        dato = konverterDato(ejdato)
        c.Value = dato                              'sætter dato i markeret celle
        c.NumberFormat = "d\/m/yyyy"                'sætter det rigtige format
    Next
End Sub
Private Function konverterDato(ejdato)
Dim år, måned, dag
    år = Left(ejdato, 4)
    måned = Mid(ejdato, 5, 2)
    dag = Right(ejdato, 2)
    konverterDato = CStr(dag) + "-" + CStr(måned) + "-" + CStr(år)
End Function

Mange tak for hjælpen

har du fået dine points? mvh Lars

Selv tak & ja - points er modtaget...