Namen drukknoppen hetzelfde als waarde van opgegeven cellen

[wally1968]

Hoi allemaal,

In bijlage vind je een documentje met 2 drukknoppen
Als ik in cel A1 iets typ en dan op enter druk, veranderd automatisch de naam van drukknop 1 (dit lukt perfect)

Wat moet ik in de code veranderen om dit met drukknop 2 ook gebeurd wanneer ik iets in cel E1 typ want dit wil maar niet lukken

Dank bij voorbaat

 

[sylvester-ponte]

je schrijft:

want dit wil maar niet lukken

wat heb je geprobeerd?

 

[edmoor]

Stukje eenvoudiger en antwoord op je vraag.
Je hoeft niet eens op de knoppen te klikken.

 

[wally1968]

Dank u voor je snelle reactie dit werkt prima

 

[edmoor]

Misschien leuk al er ook iets gebeurt als je op zo'n knop Klikt:

 

[emields]

mag ik meespelen?

 

[edmoor]

Tuurlijk!
Alles ter leering ende vermaeck :d

Wijzig dan ook Target.Address in Target.Address(0,0), dan hoef je bij een controle erop die $ tekens niet te gebruiken

 

[snb]

Ik vind workbook_change niet geëigend.
Daarom ook een test op target overbodig.

Private Sub Worksheet_Activate()
  CommandButton1.Caption = Cells(1)
  CommandButton2.Caption = Cells(1, 5)
    
  For Each it In Shapes
    it.Visible = 1
  Next
End Sub

Private Sub CommandButton1_Click()
  CommandButton1.Visible = False
End Sub

Private Sub CommandButton2_Click()
  CommandButton2.Visible = False
End Sub