VBA Transpose nederlandse datum wordt omgezet naar een engelse datum

[Hermaniaia]

Beste allemaal,

Ik heb een VBA aangemaakt, die data uit een spreadsheet verwerkt in een database. Oftewel data wordt getransposed (verticaal naar horizontaal). Nu zit ik met het volgende probleem: wanneer een datum getransposed wordt dan worden de dagen en maanden omgedraaid. Dus bijvoorbeeld 1-6-2015 wordt omgezet naar 6-1-2015. Dit zorgt ervoor dat de data niet klopt.

De volgende code gebruik ik om de tijden te verwerken:

sq2 = [DataGegTijden]

With Sheets("DataReasonCodes")

.Cells(Rows.Count, "I").End(xlUp).Offset(1, 0) = "+" 'tijden'
.Cells(Rows.Count, "I").End(xlUp).Resize(1, UBound(sq2)).Value = Application.Transpose(sq2)

End With

[DataGegReasonCode].ClearContents

End If
End Sub


Kan iemand mij hierbij helpen? Ik kan helaas (nog) niet een excel plaatsen.

Met vriendelijke groet,

Herman

 

[Cobbe]

Gebruik de Format-instructie om uw datum in de gewenste opmaak neer te zetten.

 

[Hermaniaia]

Hoe doe ik dit dan in de macro? Ik heb weinig verstand hiervan.

 

[VenA]

Plaats even een voorbeeldbestandje. (ik neem aan dat het 'nog' nu wel voorbij is.)

Wat komt er bv in sq2 te staan? Het enige wat we weten is [DataGegTijden]. Is dit een tabel met drie kolommen: data=datums, geg = gegevens? en Tijden=?

 

[HSV]

Het is één kolom met een x aantal rijen transponeren naar 1 rij en x aantal kolommen (Resize(1, UBound(sq2)).Value) lijkt me.

 

[VenA]

En als je weet wat erin staat dan kan je toch ook even de oplossing aandragen? lijkt me.

 

[HSV]

Ach, dat laat ik even voor jouw interesse op de vraag over.

 

[VenA]

Dan volgen we het in ieder geval al me z'n drieën en komt er vast wel iets onzinnigs uit.

 

[sylvester-ponte]

vreemd, kijk eens naar de celleigenschappen op bijde plaatsen

dus bij de bron en ook in het doel gebied

ik ben heel benieuwd naar een voorbeeld bestandje waar in het "mis"gaat.

 

[sylvester-ponte]

ik denk dat je oorspronktlijke "datums" tekst zijn.
en excel heeft de nare eigenschap om ongevraagd tekst om te zetten in datums.(amerikaanse stijl dan kan de maand en de dag verwisselen)
als dat zo is kan dit een van de vele oplossingen zijn.
vervang

.Cells(Rows.Count, "I").End(xlUp).Resize(1, UBound(sq2)).Value = Application.Transpose(sq2)

door

sq2.copy
.Cells(Rows.Count, "I").End(xlUp).Resize(1, UBound(sq2)).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone, , True

zo blijft tekst gewoon tekst