Datoformat - VBA

Nu er det ret svært at give en forklaring, når du ikke har fortalt hvilket tal der bliver opfattet forkert, men jeg giver et forsøg....:-)

Det er fordi Excel opfatter ikke 01012000 som en dato men som tallet 1012000, hvilket som dato svarer til datoen 1.012.000 dage efter d. 01/01 1900...

Du bliver nødt til at skrive kode, der kan omforme 01012000 til en dato...

Eks.:

function convertDate(vData as string) as date

    convertDate=dateserial(Mid(vData,5),Mid(vData,3,2),Left(vData,2))

end function

Funktionen her forudsætter en streng-variable, hvilket betyder at du skal formatere din input-celle som tekst for at bibeholde evt. foranstillede 0'er...
Samtidig skal du teste om strengen indholder mellem 6 og 8 tegn....og sørge for at det ikke allerede ER en dato der er angivet....eks. at der ikke er blevet indtastet
01-01-2000.

Jeg håber det tændte et lille lys...:-)

/Martin

Forresten funktionen kan bruges ved at fange Worksheet_Change(Target as range...):

Sub Worksheet_Change(Target as Range...)

    If Target.Column=1 then 'Kan ikke lige huske om det er den rigtige syntaks..:-)
        If not IsDate(Target) and len(Target)=6 OR Len(Target)=8 then Target=converDate(target)
    End if

end sub

Jeg prøver det af. Det lyder som om, det kunne være den rigtige løsning. Tak for hjælpen :o)