datum omzetten in Excel

[Brugesboy1979]

Vraagje:
stel je hebt in excel de volgende tekens staan:
01-MAR-10. Dit is niet ingegeven door excel maar door ons boekhoudprogramma. Nu is mijn vraag met welke formule ik dit kan omzetten naar een datum die door excel herkend wordt.

Alvast bedankt

 

[gelens]

Brugesboy

Hoe is de cel opgemaakt : Standaard of tekst ?
Staat er een ' voor de tekst ?

Kortom : heb je een klein voorbeeldje in een excel bestand ?

 

[Brugesboy1979]

in bijlage vind je het bestandje.

 

[snb]

Sub tst()
    c2 = "01-MAR-10"
    c3 = InStr("janfebmaraprmayjunjulaugsepoctnovdec", LCase(Mid(c2, 4, 2))) \ 3 + 1
    c4 = CDate(Replace(c2, Mid(c2, 4, 4), c3 & "-20"))
End Sub

als in D7 "01-MAR-10" staat:

Sub tst()
  [D7] = CDate(Replace([D7], Mid([D7], 4, 4), InStr("janfebmaraprmayjunjulaugsepoctnovdec", LCase(Mid([D7], 4, 2))) \ 3 + 1 & "-20"))
End Sub

 

[Brugesboy1979]

Kan dit niet met een gewone functie ipv met visual basic? Want van Visual Basic ken ik helaas niks.

Bedankt

 

[Cobbe]

Het kan ook met een formule:

=DATUMWAARDE(LINKS(A1;2)&"/"&VERT.ZOEKEN(DEEL(A1;4;3);$H$1:$I$12;2;0)&"/"&RECHTS(A1;2))

Zie voorbeeldbestand

Cobbe

 

[Brugesboy1979]

Dat is het.

Heel erg bedankt.