Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 5 van 5

Onderwerp: Datum plakken vanuit klembord met VBA in Excel

  1. #1
    Vraag is opgelost

    Datum plakken vanuit klembord met VBA in Excel

    Hallo,

    Ik loop tegen het volgende aan:
    Ik probeer een rij met datums (uit een andere applicatie bv kladblok) te plakken in Excel via een macro.
    Als ik een macro opneem gaat alles prima echter als ik dan de datum reeks via het uitvoeren van de macro laat plakken gooit hij alle datums die omkeerbaar zijn om. Dus 25-12-2019 gaat goed maar 05-12-2019 wordt 12 mei 2019...
    Wat me ook opvalt is dat de "goede"datums links uitgelijnd worden en de omgedraaide data rechts...
    Ik heb de volgende plakopties geprobeerd maar steeds hetzelfde resultaat...

    -ActiveSheet.Paste
    -ActiveSheet.PasteSpecial Format:="Unicodetekst", Link:=False, _
    DisplayAsIcon:=False, NoHTMLFormatting:=True
    -ActiveSheet.PasteSpecial Format:="Tekst", Link:=False, DisplayAsIcon:= _
    False

    Nu plak ik de data eerst handmatig in Excel en ga dan verder maar voor de uiteindelijke toepassing is dit niet wenselijk. De format in het bronbestand is niet te wijzigen en is gewoon mm-dd-yyyy

    Ik maak al jaren gebruik van dit forum en tot nu toe is me bijna alles nog gelukt zonder zelf een vraag te hoeven stellen maar dit keer kom ik er niet uit...
    Iemand die een oplossing weet voor dit probleem?

    Alvast bedankt!

  2. #2
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Gebruik in kladblok de volgende notatie: 2020-01-15
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  3. #3
    Helaas is het niet mogelijk om het bronbestand (in de werkelijkheid is kladblok niet het bronbestand) te wijzigen...

  4. #4
    Giga Honourable Senior Member
    Geregistreerd
    18 juli 2008
    Meestal kun je in een wizard aangeven in welk formaat je het wil converteren in Excel.
    Als dat plakken handmatig gebeurd, dan moet je deze code eens draaien na het plakken.

    De code is voor kolom A in je Excel bestand.

    Code:
    Sub hsv()
     With Cells(1).CurrentRegion.columns(1)
        .TextToColumns Range("A1"), xlDelimited, , , , , , , , , Array(1, 4)
        .NumberFormat = "dd/mm/yyyy"
     End With
    End Sub
    ____________
    Met vriendelijke groet,
    Harry

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

  5. #5
    Top Dank je wel Harry, deze code toegevoegd en het werkt! De datums staan weer goed!

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 en business

Partners
Sponsoren