Hjælp til ændring af "tekst" til "dato"

Jeg bruger forresten Excel 2010

Vælg relevante celler
Tryk på "Find og vælg" på Båndet
Erstat
Søgefter: .
Erstat med: -
Erstat alle
Luk.

Tusind tak, xl-Enthusiast!!!

Hos mig hed det godt nok "Søg og vælg", men det fattede jeg heldigvis efter et par minutter ;)

Du har reddet min aften - skift straks navn til XL

Hej Jacob

Prøv følgende kode.

Sub Replace()

Dim CPR_Old As String
Dim CPR_New As String
Dim DD As String
Dim MM As String
Dim YY As String
Dim MyA As Long

WBL = ActiveSheet.UsedRange.Rows.Count
       
For MyA = 1 To WBL
CPR_Old = Cells(MyA, 1).Value
' 1 tallet i parentesen henviser til hvilken kolonne tallet der skal ændres står i. Her kolonne A)
DD = Mid(CPR_Old, 1, 2) ' 1 tallet henviser til positionen i tallet den skal begynde ved, her første tal og derefter tag to tal)
MM = Mid(CPR_Old, 4, 2)
YY = Mid(CPR_Old, 7, 2)
CPR_New = DD & "-" & MM & "-" & YY
Cells(MyA, 1).Offset.Value = CPR_New ' Her overskrives det gamle tal med det nye.
Next MyA
Cells(MyA, 1).Select
Selection.NumberFormat = "dd-mm-yy;@" 'Her ændres cellen til datoformat

End Sub

Hvis du behøver hjælp til at regne alderen ud, skal du først finde ud af om nogle er over 100 år, da det ellers giver problemer i kodningen/udregningen. Det er ikke helt let, da CPR ikke umiddelbart giver et hint om man er født i 19xx eller 20xx mig bekendt.