Voor een plannings applicatie(tje) is het vereist dat op een userform een kalender wordt getoond met als initiele waarde de eerste van een (eerder door gebruiker) bepaalde maand. Die waarde ligt vast in de range Start, en dient ook te worden getoond in de textbox.
De datum die d.m.v. de kalender wordt gekozen moet terugkomen naar de range Return; tevens dienst de textbox "gelijke tred" te houden met de door klikken gekozen datum.
De selectors voor maand en jaar worden niet getoond.
Het lukt me niet de stardatum aan de kalender mee te geven bij initialiseren.
Als er een datum wordt gekozen krijg ik die wel terug , echter
1) range Return staat op cel A6, de datum komt in A3.
2) data van de 1e tot en met de 12e krijg ik als waarde, de 13e en later als tekst.
In het eerste geval krijg ik bijv. April door als maand 4, anders als 04.
Heb er inmiddels flink mee zitten experimenteren, maar ik hijs nu maar de witte vlag.
Waar ga ik de mist in ?
De datum die d.m.v. de kalender wordt gekozen moet terugkomen naar de range Return; tevens dienst de textbox "gelijke tred" te houden met de door klikken gekozen datum.
De selectors voor maand en jaar worden niet getoond.
Het lukt me niet de stardatum aan de kalender mee te geven bij initialiseren.
Als er een datum wordt gekozen krijg ik die wel terug , echter
1) range Return staat op cel A6, de datum komt in A3.
2) data van de 1e tot en met de 12e krijg ik als waarde, de 13e en later als tekst.
In het eerste geval krijg ik bijv. April door als maand 4, anders als 04.
Heb er inmiddels flink mee zitten experimenteren, maar ik hijs nu maar de witte vlag.
Waar ga ik de mist in ?
Code:
Private Sub UserForm_Initialise()
Me.Calendar1.Value = 0
UserForm4.Calendar1.Value = Range("Start").Value
Range("return").Value = Format(UserForm4.Calendar1.Value, "dd/mm/yyyy")
End Sub
Private Sub Calendar1_Click()
UserForm4.TextBox16.Value = Format(UserForm4.Calendar1.Value, "dd/mm/yyyy")
End Sub
Private Sub CommandButton2_Click()
End
End Sub
