Datum uitlezen en aangepast in een variabele zetten

[roppie555]

Beste mensen, graag een beetje hulp voor het volgende:

Ik haal een datum uit een cel.
Stel: 4-6-2005
Dan wil ik in een variabele hebben 1-1-2005.
Dus:
dag =1
maand = 1
jaar komt uit de cel

Ik dacht zoiets als:
Dim CelDatum, Startdatum As Date
CelDatum = Range("A1").value
Startdatum = #1-1# & Year(CelDatum)

Maar dit werkt niet. Wie o wie wil mij hier even mee helpen?

Rob

 

[Wigi]

Sub datums()
    
    Dim CelDatum As Date
    Dim Startdatum As Date
    
    CelDatum = Range("A1").Value
    Startdatum = DateSerial(Year(CelDatum), 1, 1)
    
End Sub

Wigi

 

[roppie555]

Wim,

Wat ben je weer geweldig!
Ik kende de hele functie DateSerial niet eens.
Je moet het maar weten.
Bedankt voor je snelle hulp. :thumb:

Rob

 

[Wigi]

Wim,

Wat ben je weer geweldig!
Ik kende de hele functie DateSerial niet eens.
Bedankt voor je snelle hulp. :thumb:

Met plezier gedaan.

Ik kende de hele functie DateSerial niet eens.

In de helpfunctie van VBA typ je date in...

Wigi