VBA Plakken datums worden omgedraaid.

[Jeneroy]

Allen,

Kan iemand mij helpen.

Bij het plakken van datums in een tabel (via VBA) worden de datums omgedraaid. bijvoorbeeld 10-5-2021 wordt 5-10-2021.
Bij het handmatig plakken werkt het prima.

Hoe kan dit oplossen

 

[JEC.]

Plaats je voorbeeldbestandje maar eens. Dan word je beter geholpen

 

[OctaFish]

Plakken met VBA is zelden een goed idee, maar met datums inderdaad een probleem. Je zult zien dat 29-5-2021 wél goed gaat overigens. Het probleem komt doordat je een Nederlandse datum plakt in een Amerikaanse datumnotatie. Dan wordt de dag de maand, en de maand de dag. Je zult dat dus in je code moeten converteren.
Post op zijn minst de code, want vermoedelijk is dat al genoeg. Bestandje is uiteraard beter.

 

[snb]

Sub M_snb()
   Cells(13, 1).Copy
   
   With GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
       .GetFromClipboard
       Cells(20, 1) = CDate(Replace(.GetText, vbCrLf, ""))
    End With
End Sub

 

[JEC.]

Omgekeerd invoeren in VBA werkt ook

[A1] = Format([B1], "mm-dd-yyyy")

Wordt weggeschreven als dd-mm-jjjj

 

[VenA]

Ik zie het probleem niet bij kopiëren en plakken. Bij het wegschrijven vanuit array's , Userforms, etc komt het wel vaak voor.

Sub VenA()
  Cells(1).CurrentRegion.Copy Cells(1, 3)
End Sub