Datum naar tekst

[HWV]

Beste,

Ik heb een vba script voor het verplaatsen van gegevens.

Sub verplaatsen
For I = 2 To Range("A65000").End(xlUp).Row
    Cells(I, 13) = Cells(I, 6)
Next I
End Sub

Kolom F (6) is opgemaakt als datum *14-3-2012
Kolom M (13) moet de opmaak tekst hebben maar dat er wel de datum bv. 15-10-2018 komt te staan.
Ik krijg dit niet voor elkaar met VBA .
want als ik het gewoon invult staat het wel correct

Groet Henk

Bekijk bijlage helpmij_datumNaarTekst.xlsm

 

[ExcelAmateur]

Moet je dan niet Format gebruiken?
Dus de cel eigenschap.

 

[HWV]

Beste,

Als ik het volgende gebruik:

Range("M:M").NumberFormat = "@"

Dan is de waarde van de cel tekst, zoals nu ook in het voorbeeld bestand.
Enkel dan krijg ik de waarde 43376 terwijl ik de waarde 03-10-2018 wil hebben

Of zie ik dit verkeerd.

Groet Henk

 

[ExcelAmateur]

Neem het anders eens op met de macro recorder,
wat de bedoeling is, kun je zien hoe het moet.
Hier op de IPad kan ik dit niet.

 

[snb]

Sub M_snb()
   For Each it In Blad1.Columns(6).SpecialCells(2, 1)
      it.Offset(, 7) = Format(it, "dd-mm-yyyy ")
    Next
End Sub

 

[HWV]

Geweldig

Dank je wel weer SNB, want dit geeft het gewenste resultaat.
Ik heb enkel blad1 veranderd naar activeSheet, komt voor mijn totale code beter uit

Sub M_snb()
   For Each it In [COLOR="#FF0000"]ActiveSheet.[/COLOR]Columns(6).SpecialCells(2, 1)
      it.Offset(, 7) = Format(it, "dd-mm-yyyy ")
    Next
End Sub

Dank voor alle hulp!

Henk

 

[HSV]

Dan kan je "Activesheet." ook weglaten.
Elk actieveblad is een Activesheet.