datum

[don42]

hoi allemaal

wie kan mij helpen met het maken van een datum via een userform
heb tot nu toe dit

Range("e6") = [date(b4,1,1+7*[COLOR="#FF0000"]week.value[/COLOR]-weekday(date(b4,1,1),1)-6)]
Range("e6") = [date(b4,1,1+7*[COLOR="#FF0000"]9[/COLOR]-weekday(date(b4,1,1),1)-6)]

ik zou dus graag willen dat wanneer er een cijfer in textbox 'week' staat dit de juiste week geeft beginnend op een zondag
de rode 9 in de code doet dat goed
maar hoe moet het om dit te doen via een userform


Heb een klein voorbeeld bestandje toegevoegd
don

 

[VenA]

Private Sub CommandButton1_Click()
  y = Range("B4").Value
  Range("E6") = DateSerial(y, 1, 1) + 7 * week.Value - Weekday(DateSerial(y, 1, 1), 1) - 6
End Sub