Caption op knop vba

[tcgjohn]

Hoe kan ik de datum van Vandaag automatisch in de Caption van een knop laten verschijnen. Ik wil zeven knoppen met als start de dag van vandaag tot de zevende dag. Als deze dag voorbij is wordt morgen weer de eerste dag op de eerste knop. Het moet dus dynamisch worden. Liefst bij het openen van het bestand moeten de data weer goed staan. Hieronder staat een code die nog niet werkt.
Wat moet ik aanpassen
Private Sub CommandButton1_Click()
CommandButton1.Caption = Format(Now, "ddmmjjjj")
Call KnopEersteDag

End Sub

groet, John

 

[eric cirkel]

ik neem aan dat je het in een form wil doen, zie de bijlage.

Private Sub UserForm_Initialize()
de huidige datum + x dagen
CommandButton1.Caption = Date + 1
CommandButton2.Caption = Date + 2
CommandButton3.Caption = Date + 3
End Sub


gr eric

 

[tcgjohn]

Caption op knop veranderen

Dit werkt perfect.
Echter kan het ook met een knop besturingselement op een sheet. Dus niet op een form?

groet,
John

 

[eric cirkel]

jawel is het zelfde

 

[tcgjohn]

datum in knop

Ziet er gemakkelijk uit. Weer wat geleerd.
bedankt Eric