datumprobleem

[treegkid]

Ik heb een factuur gemaakt waar o.a. de datum (vandaag) wordt gegenereerd.
Daarna ga ik via de knop "opslaan" de gegevens overzetten naar blad 2. (totaal).
Hierbij wordt de datum niet goed overgezet. De datum in pagina factuur is bv 20-12-2017. Dit wordt op pagina totaal 21-12-21. Hoe kan ik de datum juist overzetten naar pag. totaal?
Als voorbeeld een bijlage.
Groet,
GeertBekijk bijlage Factuur ALE.xls

 

[Cobbe]

Uw taal/land-instellingen zijn niet gebruikelijk voor BE/NL normen.
Dus zal je een keus moeten maken voor BE - NL of een land naar keuze maar dan ook consequent blijven.

 

[Cobbe]

Om die datum correct over te zetten in een array kan je deze aanpassing doen:

Sub Macro1()
'
' Macro1 Macro
' De macro is opgenomen op 18-11-2017 door Geert.
With Sheets("FACTUUR")
 Sheets("TOTAAL").Cells(Rows.Count, 1).End(xlUp).Offset(1).Resize(, 8) = Array(.Range("B7"), .Range("B8"), .Range("B9"), [COLOR="#FF0000"]CDate(.Range("D13"))[/COLOR], .Range("D14"), .Range("E36"), .Range("E37"), .Range("E38"))
End With
End Sub

 

[treegkid]

Beste Cobbe,
Geweldig, in 1 keer goed!
Bedankt voor de oplossing.
Groet,
Geert