Commmandbutton Caption updaten bij openen werkmap

[Mcstupid]

Hallo!

Ik heb een knop in een werkmap die geupdate moet worden bij het openen.
De caption van een van de knoppen verwijst naar een cel (F10) waarin een formule staat die de dagnaam aangeeft.
Nu veranderd dit wel als ik op de knop klik maar zou mooier zijn als dit automatisch gebeurd

Hoe kan ik de caption veranderen bij het openen van de werkmap?
Ik had het al geprobeerd met Run CommandButton1_Click() die de cellen aanpast met een datum (+3 of +4).
De cellen passen wel aan maar de caption blijft hetzelfde.

Bekijk bijlage Forum_Palletkaart.xls

 

[edmoor]

Dat kan je doen in een Sub Workbook_Open() in de ThisWorkbook sectie.

 

[Mcstupid]

bedankt voor je reactie!

dit had ik al geprobeerd maar mij lukte het niet
Had ik er misschien even bij moeten vermelden..

 

[popipipo]

in F10 kun je toch ook gewoon =E10 zetten met een celformaat van dddd

 

[edmoor]

Zo moet dat toch lukken:

Private Sub Workbook_Open()
    With ActiveWorkbook.Sheets("Palletkaart").Shapes("CommandButton1")
        .DrawingObject.Object.Caption = "Nieuw opschrift"
    End With
End Sub

 

[gast0660]

Hoi,

Bedoel je soms zoiets?
Met rechtermuisknop op een van de knoppen klikken, nadien in de functiebalk verwijzen naar de juiste cel.

Greetz

 

[Mcstupid]

Hallo allen!

Bedankt voor jullie reactie.
@popipipo, daar had ik al aan gedacht maar dan zet ie alsnog de volledige datum in de knop.
@edmoor, jou opmaak van decode werkt wel. Terwijl ik ook al met zoiets heb zitten stoeien. waarschijnlijk verkeerd opgebouwd o.i.d.
@gast0660, die van jou werkt ook perfect!

genoeg keuze merk ik al en weer wat geleerd!

bedankt allen!!

 

[popipipo]

daar had ik al aan gedacht maar dan zet ie alsnog de volledige datum in de knop.

Niet als je het celformaat aanpast

 

[gast0660]

Hoi,
Zoals popipipo al aangaf.
Moet perfect aan te passen zijn met celeigenschappen. Indien niet wat jij wilt, wat moet er dan exact inverschijnen?

 

[Mcstupid]

hallo!

Het werkt perfect in de cel, alleen wanneer ik de caption verwijs naar die cel, dan kopieert ie hem als 'korte notatie' datum.
De bedoeling is/was dat alleen de dagnaam te zien was op de knop zelf.

Om te checken of ik niks over het hoofd heb gezien heb ik hetvolgende ff snel gedaan:
In cel H10 heb ik de =vandaag() +3 gezet met dddd als celeigenschap.
Cel H10 geeft netjes zondag aan.

Daar na heb ik de code:

Private Sub CommandButton4_Click()
MsgBox "test"
CommandButton4.Caption = Range("H10")
End Sub

erop losgelaten maar ik krijg de datum (06-09-2015) op de knop ipv zondag.

Heb ik iets over geslagen?

gr, Roelof

 

[edmoor]

Ik denk dit:
CommandButton4.Caption = Format(Range("H10"), "DDDD")

 

[Mcstupid]

ik ben heel even de kluts kwijt hahaha
Ik ben intussen met 3 verschillende projecten bezig

Mijn bedoeling was met opstarten van de werkmap, de knoppen aangepast zouden worden.
De codes werken wel, alleen niet met opstarten want ik moest er eerst op klikken voordat de caption veranderde.

De eerste code die Edmoor stuurde, heb ik toe- en aangepast zodat de knoppen veranderde bij het opstarten van de werkmap.

 

[edmoor]

 

[gast0660]

Hoi,
In mijn voorbeeldje worden de knoppen automatisch aangepast. maw zijn morgen (nieuwe datum) de knoppen aangepast. En hierbij nog eens vbtje met alleen dagnaam
@edmoor, vind ik leuk
Greetz

 

[Mcstupid]

nogmaals bedankt allen!!