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.
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.
