Fjern første tegn i cellen - ERSTAT, SLET, RENS

indtast et 1 tal i en tom celle
kopier dette 1 tal
marker alle datoer
vælg indsæt speciel
vælg multiplicer
formater cellene til dato

Hvis jeg markere min range med alle datoer og herefter højreklikker
kan jeg se at Indsæt Speciel. Den er bare ikke aktiv og kan ikke vælges. Kan jeg finde den andet sted ?

Husker at kopierev 1-tallet før du markerer dine datoer?

Hmm.. jo nu sker der noget. Tegnet ' forsvinder godt nok som ønsket, men den viste dato i cellen laves også om idet '23/05-07 bliver til 1/1/1900. En anden ting er at der i min indsæt speciel menu kun er to muligheder nemlig Unicode og Tekst - kan ikke forstå hvad du mener med multiplicere.


Alle dato formater er som flg:  '23/05-07. Altså altid 9 karakterer. Hvis jeg forsøgsvis benytter =RIGHT(F2,8) slipper jeg af med det første karakter i celle F2 som ønsket.  MEN hvordan kan jeg få kørt denne formel på hele mit navngivne område kaldet Dates.  Vil alternativ også kunne leve med at skulle angive dette som F2:G353 selvom der er meget der så skal markeres. (Hmm findes der ikke en taste kombination som markerer nedaf indtil første tomme celler mødes ?) Jeg har forsøgt formlen men får fejlmelding med cirkulære referencer.

Næste problem er at jeg skal lave Dato formatet om til 23-05-2007. Kan se at Excel laver forskellige formater….

Det er lidt ærgeligt du ikke kan få det til at virke hos dig

men ok vi kan da godt prøve med en formel :

=DATOVÆRDI(F2)
som efterfølgende skal formateres i det datoformat du ønsker
men skal desuden konverteres til værdi som minder om metoden
jeg beskrev i første indlæg.

så derfor tror jeg det er bedst at lave en makro som klarer jobbet for dig - skal vi prøve det ?

ret lige Ark3 til aktuel hos dig :

Sub Konverter()
For Each c In Sheets("Ark3").Range("F2:G353")
c.Value = CDate(c.Value)
Next
End Sub

Har du prøvet kopier+indsæt speciel, værdier?

Excelent, koden er indsat og kører. Den fjerner 'tegnet som ønsket i alle celler.
Dog sker mystiske ting med mine datoer, her er eks. som viser udsnit før koden kører:
Oprettet    Levering
23/05-07    01/06-07
25/05-07    01/06-07
25/05-07    15/06-07

- Efter koden er kørt er datoer i samme celler:
Oprettet    Levering
5/7/2023    1/6/2007
5/7/2025    1/6/2007
5/7/2025    6/7/2015

Markerer nu cellerne igen og forsøger at formattere datoformatet men får:
Oprettet    Levering
07-May-23    06-Jan-07
07-May-25    06-Jan-07
07-May-25    07-Jun-15

ovenstående konvereters ok her
kører Excel 2003 DK Vista

23-05-2007    01-06-2007
25-05-2007    01-06-2007
25-05-2007    15-06-2007

prøv evt. om denne gør det bedre:

Sub xKonverter()
For Each c In Sheets("Ark3").Range("F2:G4")
c.Value = CDate(Mid(c.Value, 1, 2) & "-" & Mid(c.Value, 4, 2) & "-" & Mid(c.Value, 7, 2))
Next
End Sub

Excelent, nu køre det ok.

Jeg bruger denne:
Sub Konverter()
For Each c In Sheets("Ark3").Range("F2:G353")
c.Value = CDate(c.Value)
Next
End Sub

Jeg tror at årsagen til mine datoer efterflg ikke lod sig konvertere korrekt skal findes i en eller anden Excel versions konflikt. Mine rådata fra den nye Vista kunne ikke køres direkte til Excel 2003. Derfor hentede jeg en konverterings fil fra Microsoft. (Vista er ny for mig og jeg foretrækker endnu den gl version.) Dog gik det galt med datoformatet - nu har jeg prøvet at holde mine rådata og indsat din kode i ny version af Excel og det kører bare.
- Smid et svar og der er point.

ok