12. november 2008 - 23:30Der er
7 kommentarer og 1 løsning
dato tilpasning i excel
Hej, jeg er ny i dette forum, men prøver da jeg har læst at i ved alt der er værd at vide inden for dette forum.
Jeg har et excel ark fra mit arbejde med ca 700 emner, disse er listet i denne form: a1-a705 navn, b1-b705 add, c1-c705 postnummer, d1-d705 by og endeligt e1-e705 dato. Nu er mit problem at min viden om excel kan ligge på en nålespids, så jeg har brug for hjælp til at rette datoerne til, som i min fil "hedder" 10100 (01.01.2000) og 100100 (10.01.2000) samt at kunne sortere dem i dato orden. Har postet samme på edbpriser, men har fået en forklaring som jeg ikke forstår, så hvis i vil hjælpe mig skal det ikke være for teknisk.
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
Indsæt denne kode i et modul, og afspil makroen (præv først i en kopi af arket):
Sub TekstDato() For Each c In Range("e1:e705").Cells If Len(c.Value) = 5 Then c.Value = Left(c.Value, 1) & "-" & Mid(c.Value, 2, 2) & "-" & _ Right(c.Value, 2) Else c.Value = Left(c.Value, 2) & "-" & Mid(c.Value, 3, 2) & _ "-" & Right(c.Value, 2) End If Next c End Sub
Sub RetDato() On Error Resume Next For Each c In Range("E1:E705") d = c.Value If Len(d) = 5 Then d = "0" & d c.Value = DateSerial(Right(d, 2), Mid(d, 3, 2), Left(d, 2)) Next End Sub
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.
