Excel 2003 "cel bevat datum jaartal wordt met 2 cijfer aangegeven" 19xx of 20xx

[ROSO]

Beste forum leden,

Heeft iemand een oplossing voor het volgende:

Ik in een sheet heb ik een reeks datum (ca 3000 rijen) waarvan de jaartal slecht met 2 cijfer is ingevoerd. "moet echter 4 cijfers worden".

Melding van cel inhoud is "Deze cel bevat een datumreeks het jaartal met slechts 2 cijfer wordt aangeven."

Met cel format en kopieren, waarde plakken lukt het niet.

Al ik dubbel klik in het zelfde cel dan lukt het wel.

Groeten,

Roso

 

[pasan]

probeer het is met tekst naar kolommen en bij datum kies je dmj dan wordt de maand mei een getal 5
en daarna cel eigenschappen op d-mm-yyyy

 

[popipipo]

Zet in een willekeurige lege cel het getal 1

Kopieer deze 1 en dan de datum reeks selecteren en dan 'plakken speciaal' met de optie 'vermenigvuldigen'

 

[ROSO]

Hoi Willem en pascan,

Bedankt voor jullie reactie.

Beide optie's werken, is het mogelijk dit dmv vba te doen?

Groetn,

Ronny Sewbalaksing

 

[sylvester-ponte]

Zet in een willekeurige lege cel het getal 1

Kopieer deze 1 en dan de datum reeks selecteren en dan 'plakken speciaal' met de optie 'vermenigvuldigen'

maak die 1 eerst op als datum zoals jij dat wilt

groet sylvester

 

[ROSO]

Hoi sylvester,

Op deze wijze lukt het nu wel, mijn volgende vraag is of het ook dmv een macro/vba code kan.

Ik heb een maco opgenomen maar dat lukt mij niet.

Groeten,

Roso

 

[sylvester-ponte]

hallo Rosso
stuur die macro een op
sylvester

 

[ROSO]

Hoi sylvester,


Sub Multe()
Range("F4").Copy
Range("E2").PasteSpecial Operation:=xlPasteSpecialOperationMultiply

End Sub

F4 heeft 1
E2 heeft datum

Ik heb zelf eea aangpast.

Groet,

Roso

 

[sylvester-ponte]

Roso, probeer dit eens:

Sub DatumOmzetten()
    Dim R As Range: Set R = Selection.SpecialCells(xlCellTypeConstants)
    Dim Datum As Range
    For Each Datum In R
      Datum = CDate(Datum)
      Datum.NumberFormat = "d mmmm yyyy"
    Next
    R.Columns.EntireColumn.AutoFit
End Sub

je moet nu wel eerst de datums selecteren en dan de macro draaien
als er lege cellen tussen staan dan geeft dat niet.
groet sylvester

 

[ROSO]

Hoi sylvester,

Bedankt, ik ga verder stoeien met jouw code.

Groeten,

Roso