Fra tal til brugbar dato

Formel eller VBA?

Denne formel ændrer til datoformat:
=DATO(VENSTRE(A1;4);MIDT(A1;5;2);HØJRE(A1;2))

og herefter en brugerdefineret formatering:
ddd-mm-dd

og som VBA:
Importeret dato i Kolonne A - redigeret i kolone B

Dim antalRæk As Long, dato As Date, ræk As Long
Dim ugensDage As Variant
Public Sub konverterDato()
    ugensDage = Array("", "Man", "Tir", "Ons", "Tor", "Fre", "Lør", "Søn")
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRæk
        dato = arrangerDato(Range("A" & ræk))
        ugedag = ugensDage(Weekday(dato, vbMonday))
       
        Range("B" & ræk) = ugedag & Format(dato, "-mm-dd")
    Next ræk
End Sub
Private Function arrangerDato(dato)
    arrangerDato = Right(dato, 2) & "-" & Mid(dato, 5, 2) & "-" & Left(dato, 4)
End Function

Tak for hjælpen begge 2!

Jeg synes umiddelbart eriks metode var den nemmeste og det lykkedes at få til at stå rigtigt :)

OK - så får du et svar!