Veld in userform laten vullen met datum die 30 dagen later ligt

[Danielle22]

Hallo allemaal,

Ik heb een agenda in een userform. Is het ook mogelijk als ik die vul dat er in het veld ernaast een datum komt te staan die 30 dagen later ligt?

Zie ook mijn voorbeeld. Het userform wordt zichtbaar als je op het bolletje klikt.

Groetjes,

DanielleBekijk bijlage Kies datum.xlsm

 

[edmoor]

Probeer eens:
DateValue(Calendar2.TBdatum.Value) + 30

 

[Danielle22]

Hallo,

Bedankt voor je reactie. Weet je ook waar ik dit precies moet invullen?

Groetjes,

Danielle

 

[edmoor]

In de code uiteraard, daar waar deze regel staat:
Datum = DateValue(Calendar2.TBdatum.Value)

zet je er + 30 achter.
Of waar je het dan ook wilt gebruiken.

 

[Danielle22]

Hallo,

Ik heb het achter de code gezet. Als ik nu bijvoorbeeld 01-01-2015 aanklik in de kalender dan wordt er 31-01-2015 ingevoerd. Het wordt opgeplust met 30 dagen. Maar ik het ook mogelijk als ik 01-01-2015 aanklik in de agenda dat de tweede tekstbox in de userform gevuld wordt met een datum die 30 dagen hoger ligt?

Groetjes,

Danielle

 

[edmoor]

Tuurlijk. Dat gaat op dezelfde manier.

 

[Danielle22]

Oké bedankt. Heb je ook een idee hoe ik dat het beste kan doen? Ik heb geen idee hoe ik de link moet leggen naar de kalender en de tweede tekstbox.

Groetjes,

Danielle