Avatar billede marvinq Nybegynder
13. november 2008 - 09:24 Der er 4 kommentarer og
1 løsning

Savner dato formatering

Hej Eksperter,

Jeg kan se det er rimelig generelt at folk har problemer med datoer i Excel... Altså en konvertering så '131108' bliver til '13-11-2008'. Det kan åbenbart ikke lade sig gøre.

Så tænkte jeg om det ikke kunne lade sig gøre at lave en makro til dette. Jeg har bare ikke selv styr på hvordan det gøres.

Er der nogle som har en makro som kan gøre dette, eller har idéer til hvordan det kunne fungere!?

/MHQ
Avatar billede excelent Ekspert
13. november 2008 - 15:27 #1
Prøv :
Sub TilDato()
d = ActiveCell.Value
If Len(d) = 5 Then d = "0" & d
ActiveCell.Offset(0, 1) = DateSerial(Right(d, 2), Mid(d, 3, 2), Left(d, 2))
End Sub
Avatar billede marvinq Nybegynder
14. november 2008 - 10:06 #2
Det ser ud til at være meget tæt på perfekt..

Så savner jeg bare en slags "onChange" på feltet, så feltet automatisk kalder denne makro. Hvordan gør man det???

/MHQ
Avatar billede marvinq Nybegynder
14. november 2008 - 10:57 #3
Fandt selv ud af det :)
Avatar billede marvinq Nybegynder
14. november 2008 - 10:58 #4
smid et svar, så skal du få kredit for dit arbejde :)
Avatar billede excelent Ekspert
14. november 2008 - 14:23 #5
kommer her
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester