Datum overzetten via macro

[Tommy1]

Hallo,
Ik heb een vraag. In mijn sheet moet een datum overgezet worden d.m.v. een macro. Als de datum is: 21-5-2008 maakt de computer er 39589.
Is dit te verhelpen zodat er toch een datum komt te staan?
De datum staat in C27 en moet naar A33 worden geschreven.

Sheets("Overzicht wedstrijden").Select
Rows("33:33").Select
Selection.Insert Shift:=xlDown
Selection.Interior.ColorIndex = xlNone


With Sheets("Overzicht wedstrijden")
'Eerst de datum,namen,en de stand

.Range("A33") = .Range("C27")

Alvast bedankt,
Tom

 

[Roncancio]

Zonder macro kan het ook.

Je moet de Celeigenschappen aanpassen.
Dit doe je via OPMAAK - CELEIGENSCHAPPEN.
Selecteer bij categorie Datum de gewenste datumnotatie.

Met vriendelijke groet,


Roncancio

 

[Tommy1]

Roncancio,

Bedankt voor je snelle reactie.
Dat het anders kan weet ik maar de datum is een onderdeel van 26 cellen die zoals je ziet in een gedeelte van bijgevoegde macro overgeschreven moeten worden.
Deze worden pas weggeschreven als d.m.v. de macro regel 33 is bijgevoegd.
Vandaar!

 

[Roncancio]

Roncancio,

Bedankt voor je snelle reactie.
Dat het anders kan weet ik maar de datum is een onderdeel van 26 cellen die zoals je ziet in een gedeelte van bijgevoegde macro overgeschreven moeten worden.
Deze worden pas weggeschreven als d.m.v. de macro regel 33 is bijgevoegd.
Vandaar!

Wellicht bedoel je het zo:

Range("A33").Value= Format(Range("C33"),"dd-m-yyyy")

Met vriendelijke groet,


Roncancio

 

[Rianneke]

Het is ook mogelijk om het zetten van celeigenschappen te doen via de macro.
Indien je na de regel .Range("A33") = .Range("C27")
opneemt: .Range("C27").NumberFormat = "m/d/yy;@"

Wordt de datum in C27 als datum weergegeven.

Succes.

 

[Tommy1]

Ik heb eerst de optie van Roncancio geprobeerd. Ik denk dat ik de regel op een verkeerde plaats heb gezet. Het werkte niet.
Dan de optie van Rianneke die werkt wel.
Alleen heb ik de cel C27 verandert in A30. Dat was nl de probleem cel.

Beide heel erg bedankt.
Wat een super forum is dit toch!!
Binnen het half uur antwoord op je vraag.

Een fijne dag nog,
Tom