Datum notatie omgewisseld

[JP1985]

Hallo,

Ik heb een kolom in een excel-sheet, waar bijvoorbeeld de volgende data in staat;

10.04.2010 (10 april 2010)
11.04.2010 (11 april 2010)
12.04.2010 (12 april 2010)

Nu wil ik dat excel deze data als datums herkend, dus heb een VBA-macro die de "." vervangt voor een "-"

Columns("M:M").Select
Selection.Replace What:=".", Replacement:="-", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Als resultaat krijg ik helaas de Amerikaanse notatie;

04-10-2010 (4 oktober 2010)
04-11-2010 (4 november 2010)
04-12-2010 (4 december 2010)


Wie kan mijn macro dusdanig aanpassen, zodat de Europese notatie in stand blijft?

Alvast bedankt
mvgr. Jeroen

 

[Hoornvan]

JP1985,

De code kan ook zo.

 With Sheets("Blad1").[M:M]
  .NumberFormat = "mm-dd-yyyy"
  .Replace ".", "-", xlValue, xlPart
 End With

Ik denk dat nu goed werkt.

 

[JP1985]

Bedankt, maar jammer genoeg werkt het niet. Datum notatie wordt nog steeds omgewisseld.

 

[snb]

sub aha()
  For each cl in Blad1.columns(13).specialcells(2)
    cl=  Format(Replace(cl, ".", "-"), "mm/dd/yyyy")
  Next
End Sub

 

[Hoornvan]

JP1985,

Dat ik zolaat reageer komt doordat ik net van de camping kom.

De code van snb doet het bij mij niet.

DE onderstaande code werkt bij mij wel, je moet hem wel in een module plaatsen.

Sub PuntNaarStreep()
 With [Blad1!M:M]
 'Zet de datum van 12.4.2010 om naar 12-4-2010
  .NumberFormat = "mm-dd-yyyy"
  .Replace ".", "-"
 End With
End Sub

Deze code werkt bij mij ook, deze zet je achter het blad.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Zet de datum van 12.4.2010 om naar 12-4-2010
  With [M:M]
    .NumberFormat = "mm-dd-yyyy"
    .Replace ".", "-"
  End With
End Sub

Doe anders een voorbeeldje zonder gevoelige info.

 

[JP1985]

Super Hoornvan, bedankt.

 

[Hoornvan]

@JP1985,
Super Hoornvan, bedankt.

Graag gedaan.
Je snap natuurlijk wel dat je maar een van de code's nodig heb, dus aan jouw de kueze.

 

[JP1985]

Helaas, de oplossing is toch nog niet helemaal zo als hij moet zijn.

Visueel gezien zie ik de juiste datum wel, alleen de datum herkend excel nog steeds als de verkeerde notatie (Amerikaanse)...

Iemand nog een idee?

 

[Hoornvan]

JP1985,

Ik weet niet wat er fout ga, advies: Doe een voorbeeld bestandje.