Calender in meerdere cellen

[Atwist]

Hallo forumleden,

Ben bijna klaar met mijn formulier, maar heb toch nog een vraag.
Heb hier op het forum een calender gevonden die ik nu in 1 cel gebruik maar ik wil deze nu in meerdere cellen gebruiken mmar heb geen flauw idee hoe.

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

ActiveCell.NumberFormat = "dd/mm/yyyy"

End Sub



Private Sub UserForm_Activate()

Me.Calendar1.Value = Date

End Sub

En kan dit ook zo gemaakt worden dat deze de datum niet in cijfers maar in tekst weergeeft dus bv 30 december 2009

 

[Roncancio]

Als je in bijgevoegd bestand dubbelklikt, verschijnt een kalender.
De gekozen datums worden voluit geschreven.

Met vriendelijke groet,


Roncancio

 

[danny147]

Beste Atwist

Uw code is goed, je moet enkel de notatie veranderen.

Private Sub Calendar1_Click()

ActiveCell = Calendar1.Value

    ActiveCell.NumberFormat = "dd/mm[COLOR="Red"][B]mm[/B][/COLOR]/yyyy"

End Sub

    

Private Sub UserForm_Activate()

Me.Calendar1.Value = Date

End Sub

De notaties zijn als vogt :

d = 1
dd = 01
ddd = ma
dddd = maandag

m = 1
mm = 01
mmm = jan
mmmm = januari

j = 09
jj = 09
jjj = 2009
jjjj = 2009

Zo kan je zelf kiezen hoe jij je datum wilt in de cel.

Groetjes Danny. :thumb:

 

[Atwist]

@ Roncancio,

Dank voor je voorbeeld alleen de commandbutton werkt niet ik denk dat hiermee de kalender gesloten wordt maar er gebeurt niets.

@ Danny147,

Dank voor je heldere uitleg.

 

[Warme bakkertje]

Zet in de code v/h formulier

Private Sub CommandButton1_Click()
    Unload Me
End Sub

 

[Atwist]

Beste Warme bakkertje,

Dank voor je oplossing dit werkt mooi:thumb: