dag, maand inlezen van sheet naar formulier

[tcgjohn]

Ik voer een datum in een tekstveld in een formulier (vba) excel in. De dag, maand en jaar kunnen in aparte tekstvelden worden gekozen met spinbuttons.

Private Sub cmdNext_Click()
    
    Cells(Lastrow, 2).Value = txtVoorl.Value
    Cells(Lastrow, 3).Value = txtVoegsel.Value
    Cells(Lastrow, 5).Value = txtGastNaam.Value
    Cells(Lastrow, 6).Value = DateSerial(SpBtn_Year.Value, SpBtn_Month.Value, SpBtn_Day.Value)
    Cells(Lastrow, 7).Value = cbSpel.Value
    Cells(Lastrow, 8).Value = txtSpelInfo.Value
    Cells(Lastrow, 9).Value = txtFBInfo.Value

Hoe kan ik de DateSerial(spBtn_Year, SpBtn_Month.value, spBtn_Day.Value) nu omdraaien, zodat het ingelezen wordt in de tekstvelden van jaar, maand en dag op het formulier.

Mijn oplossing werkt niet zoals hierna omschreven.
tbDay = Cells(Lastrow, 6).FormulaR1C1 = Format(Date, "d")
tbmonth = cells(lastrow, 6).formulaR1C1 = format(Date, "m")
etc
Wat doe ik fout?

John

 

[etri]

Dat doe je zo:

    Dim myDate As Date
    Dim iDay As Integer
    Dim iMonth As Integer
    Dim iYear As Integer
    
    myDate = DateSerial(2008, 2, 29)
    
    iDay = Day(myDate)
    iMonth = Month(myDate)
    iYear = Year(myDate)