Kalender in Userform

[Neuz]

Hey allemaal,

Ik heb op dit moment een kalender op een userform staan. Hiermee kunnen personen
gemakkelijk een datum kiezen. Deze komt dan weer op het userform terecht. Deze
datum is gekoppeld aan de naam van het tabblad.

Omdat het programma zichzelf schoon houdt (verwijderd de tabbladen die niet
meer gewenst zijn) wil ik de kalender zo instellen dat deze maar maximaal
6 maanden terug kan. Is dit mogelijk en hoe doe ik dit?

Groet Neuz

 

[alphamax]

Met een klein voorbeeldbestandje zonder persoonlijke informatie wordt je sneller en beter geholpen.

 

[Neuz]

Beste Alphamax,

Hierbij even een voorbeeld bestandje. Heb even snel een nieuwe gemaakt,
alle privacy gevoelige informatie uit die andere halen was namelijk te veel
werk.

Bekijk bijlage HelpMij Kalender.xlsm

Het komt er op neer dat de tabbladen de namen hebben van de dagen,
in de vorm jjjj-mm-dd. Deze tabbladen worden na 6 maanden automatisch
verwijderd. Nu zou ik graag willen dat de kalender die ik gebruik om de datum
te kiezen niet verder terug kan dan 6 maanden, is dit mogelijk?

Alvast bedankt voor de hulp.

Groet Neuz

 

[alphamax]

Private Sub UserForm_Initialize()
    Me.MonthView1.Value = Now
    [COLOR="#FF0000"]Me.MonthView1.MinDate = Now - 6 * 31[/COLOR]
End Sub

 

[Neuz]

Thnx Alphamax voor de snelle hulp.

Dit is de oplossing.