Aanpassen datum in Excel

[grieken]

Ik heb maandelijks een bestand met ongeveer 2000 regels. Dit krijg ik vanuit de USA aangeleverd en de datum staat als volgt aangegeven "12/10/2007 09:31:17" Dit moet in mijn uiteindelijke bestand terug komen als "10-dec-07". Het lukt mij niet dit in een keer te doen dus doe nu alles handmatig. "Opmaak", "Celeigenschappen", "Datum" werkt in ieder geval niet.

Wie heeft voor mij de oplossing?

Gr,
Marc

 

[danny147]

Beste grieken

Zet bij celeigenschappen dan bij aangepast en bij type de volgende code

d/mmm/jj

Selecteer dan de cel en sleep met de vulgreep naar beneden.

Groetjes Danny. :thumb:

 

[grieken]

Bedankt Danny hij vernadert nu inderdaad, maar maakt er Oktober van ipv December. Nog een tip hiervoor?

 

[danny147]

Beste

Zie hier een omzetting van datum.

Groetjes Danny :thumb:

 

[ReneDirks]

Tja, maar als je daar dan 12/14/2007 09:31:17 (14 dec) invult, dan gaat het alsnog fout...

Maak een module aan waarin je de volgende functie zet:

Public Function Us2EuDate(strUSDate As String) As Date
  Dim arrDate() As String
  
  Dim strDate As String
  Dim i As Integer
  
    i = InStr(strUSDate, " ")
    If i = 0 Then
        Us2EuDate = Null
    Else
        strDate = Mid(strUSDate, 1, i - 1)
        arrDate = Split(strDate, "/")
        strDate = arrDate(1) & "-" & arrDate(0) & "-" & arrDate(2)
        Us2EuDate = CDate(strDate)
    End If
End Function

Vervolgens kun je in de cell waar je de datum wilt verwerken =Us2EuDate(A1) invullen - zie voorbeeld

 

[danny147]

Beste ReneDirks

Je hebt gelijk met wat de datums betreft.
Bij tekst doet hij het niet en bij waarde doet hij het wel.

Dan maar met VBA code als het niet anders kan.
Heb geprobeerd met DEEL en LINKS en ook dat lukte niet.

Groetjes Danny. :thumb:

 

[grieken]

Beide bedankt! Het is mij duidelijk alleen zou ik nog graag willen weten hoe ik die module in Excel kan krijgen.

 

[Wigi]

Druk Alt-F11 om in VBA-editor te komen.

Doe Invoegen > module en plak de code.

Wigi

 

[robdgr]

Deze werkt bij mij:

=DATUM(DEEL(A3;7;4);DEEL(A3;4;2);DEEL(A3;1;2))

en ik heb A3 bewust op eigenschappen tekst gezet.

 

[ReneDirks]

Deze werkt bij mij:

=DATUM(DEEL(A3;7;4);DEEL(A3;4;2);DEEL(A3;1;2))

en ik heb A3 bewust op eigenschappen tekst gezet.

Maar dan ga je er nu vanuit dat ieder datumdeel altijd uit twee digits bestaat....

 

[robdgr]

Klopt, andere varianten moet je eerst testen.

 

[grieken]

Het werkt toch niet helemaal zoals ik wil. Met Alt + F11 staat de code erin maar krijg ik bij mijn datum #NAAM?. Enig idee wat het probleem is?

 

[Wigi]

Staat de code wel in een module?