Datum format omzetten?

[Gert Bouwmeeste]

Ik krijg vanuit een mainframe download een aantal gegevens binnen, waaronder een datum. Het format van die datum is bv "17.01.2010" en wordt dus door Excel niet herkend als datum (want de internationale instellingen van Windows verwachten een "-" i.p.v. een ".").

Wanneer ik handmatig met "Zoek en vervang" de "." wijzig in een "-" dan herkent Excel wel dat het een datum is.

Als ik datzelfde in een macro doe dan werkt het niet. Tenzij de eerste 2 cijfers (dus eigenlijk de DAG) =<12, want dan denkt Excel dat het de maand is en wordt de cel wel een datum cel.

Sub DatumOmzetten()
    Selection.Replace What:=".", Replacement:="-", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Wie weet een oplossing?

 

[danny147]

Beste Gert Bouwmeeste


Is deze morgend al te sprake gekomen op het forum.

Plaats deze code in de VBA editor in het tabblad

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  ActiveCell = Replace(ActiveCell, ".", "-")
End Sub

Daarna cel selecteren.


Groetjes Danny. :thumb:

 

[Hoornvan]

Gert Bouwmeeste,

Kijk hier eens

 

[tilpi]

Selection.NumberFormat = "m/d/yyyy"

Of deze code aan de bestaande macro toevoegen.

Mvg

Piet