Helpmij.nl
Helpmij.nl
Helpmij.nl

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Datum wordt omgezet van NL naar US (Office NL)

  1. #1
    Senior Member
    Geregistreerd
    15 december 2012
    Vraag is niet opgelost

    Datum wordt omgezet van NL naar US (Office NL)

    Het gebeurt regelmatig: Office 365 NL - taal ingesteld op NL - Windows 10 x64 Engels - regional settings Europa.

    Na het afspelen van een macro, zie:
    https://www.helpmij.nl/forum/showthr...-personal-xlsb

    Sub VenA()
    With Cells(1).CurrentRegion
    .Columns(1).Replace ".", "-"
    .Replace "MB", ""
    .Replace ",", ""
    .Interior.Color = xlNone
    .Borders.LineStyle = xlNone
    .Font.ColorIndex = xlAutomatic
    End With
    End Sub

    worden datums, waar mogelijk omgezet naar Amerikaans

    Dus 08.04.2021 wordt (middels bovenstaande macro) omgezet naar 04-08-2021

    Het gebeurt niet alleen hier, bij deze macro, dit is slechts een voorbeeld...

    Het gebeurt regelmatig en moet ik e.e.a. handmatig corrigeren.
    Nogmaals, dit is slechts 1 voorbeeld.

    Wanneer ik de macro NIET gebruik en doe een gewone zoek en vervang dan wordt de datum -niet- omgezet.


    Waar zou dat aan kunnen liggen?
    Heeft iemand enig idee?

    Thanks!

  2. #2
    Mega Senior JVeer's avatar
    Geregistreerd
    27 februari 2019
    Je zou het zo kunnen testen. PS: Datum met punt(tekst) omzetten naar datum met een midden streepje, zorgt er niet standaard voor dat de cel werkelijk een datum is.

    Code:
    Sub VenA()
      With Cells(1).CurrentRegion
        .Columns(1).Replace ".", "-"
        .Replace "MB", ""
        .Replace ",", ""
        .Interior.Color = xlNone
        .Borders.LineStyle = xlNone
        .Font.ColorIndex = xlAutomatic
        .Columns(1).NumberFormat = "dd-mm-yyyy"
      End With
    End Sub
    Laatst aangepast door JVeer : 8 april 2021 om 16:10
    Gr,
    JV

  3. #3
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    In het Duits is de datum met een punt.

    Gebruik:
    Code:
    Sub hsv()
     Columns(1).TextToColumns Range("a1"), 1, 1, , , , , , , , Array(1, 4)
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  4. #4
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Quote Origineel gepost door hmwul Bekijk Bericht
    Waar zou dat aan kunnen liggen?
    De reden is heel simpel: als je binnen het programma met een programmafunctie (zoals Zoeken en Vervangen) iets doet, blijf je binnen dezelfde taalversie zitten. Gebruik je VBA, dan werk je met de Amerikaanse datumwijze. En dan wordt 4-8 dus 8-4 en omgekeerd. De datums gaan alleen 'verkeerd' (dus goed) als de datum begint met een getal groter dan 12; dan weet óók de Amerikaanse notatie dat het een Europese datum is. Je moet daar dus rekening mee houden als je macro's gebruikt om datums om te zetten.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  5. #5
    Senior Member
    Geregistreerd
    15 december 2012
    @jveer: hartelijk dank voor de update van de macro. Heb dit toegepast, maar, helaas, het spijt me te moeten zeggen, het werkt niet.

    @OctaFish Ah! Dat wist ik niet... Google search "excel VBA date format changes to US" spreekt voor zich. Had echt geen idee.
    Kennelijk is daar geen algemene oplossing voor. Je kan in Windows van alles instellen in 'Dutch' en 'Regional Settings' maar kennelijk maakt dat geen *** uit.
    De diverse threads gaan in op specifieke oplossingen, maar niet hoe je deze omzetting kan voorkomen, in alle gevallen.
    Dit is balen.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl

Regels
Help

Helpmij.nl en business

Partners
Sponsoren