Button-naam uitlezen in VBA

[Cobbe]

Goede,

Kan er mij iemand diets maken waarom dit niet werkt met een button van de werkset besturingselementen?

Sub Button_Clicked()
    Button_Action (Application.Caller)
End Sub

Sub Button_Action(TargetName As String)
    Dim resultaat As Integer
    resultaat = MsgBox("U drukte op Knop " & _
               TargetName, vbOKOnly, "User Message")
End Sub

Met een doodgewone knop uit de werkbalk Formilieren krijg ik netjes "U drukte op Knop**"
maar met een button uit de werkset resulteert dit in een fout 2023

Waarom werkt dat niet?

Dank voor de moeite

Cobbe

 

[cow18]

voor wat wil je het gebruiken ?

Private Sub CommandButton1_Click()
  Dim resultaat As Integer
  resultaat = MsgBox("U drukte op Knop " & CommandButton1.Name, vbOKOnly, "User Message")
End Sub

 

[Cobbe]

Dank voor het reageren.
Ik heb 8 commandbuttons in een sheet staan genummerd van 1 to 8.
Nu wil ik met deze buttons eenzelfde macro uitvoeren MAAR telkens met een andere waarde.
En daarom heb ik een code nodig waarmee ik kan uitlezen welke knop er is gedrukt.
Met formulierknoppen is dat gewoon te doen met bovenstaande code.

Cobbe

 

[cow18]

je maakt een algemene macro die alles doet en die een parameter meekrijgt vanuit je aangesproken knop

 

[Cobbe]

Hey dank is groot.:thumb::thumb::thumb:
Heb wat ik moest hebben.
Als ik nog eens in Alveringem kom dan kom ik langs.

Cobbe

 

[cow18]

Midelkerke, 't is niet ver

 

[Cobbe]

Onze dochters-schoonouders zijn van daar.