Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Schaltflächen-Kopien an Hand der Beschriftung auswerten
#1
Hallo zusammen,

ich habe eine Tabelle mit einer Schaltfläche, von der ich mehrere Kopien (alles 'Schaltfläche1') erstellt und verschieden beschriftet habe.

Anhand der eindeutigen Beschriftungen (caption?) möchte ich ermitteln, welche der 'geklonten' Schaltflächen gedrückt wurde, um danach in Abhängigkeit vom ermittelten Wert ein Makro zu starten.
Im Moment fehlt mir noch der 'Einsteiger'. Ich habe einen Screenshot angehangen, evtl. hilft er zum Verständnis.

Danke im Voraus und vG


Angehängte Dateien Thumbnail(s)
   
Antwortento top
#2
Hallöchen,

wenn Du Formularsteuerelemente hast kannst Du allen den gleichen Code zuweisen und mit Application.Caller einiges herausfinden Smile
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
[-] Folgende(r) 1 Benutzer sagt Danke an schauan für diesen Beitrag:
  • Wanderfalke
Antwortento top
#3
Hallo,

danke für die Rückmeldung. Der Name der Schaltfläche (=Bezeichner) wird richtig angezeigt.

Wie kann ich aber den Text, der auf der Schaltfläche steht und nach bspw. editieren vom Namen abweichen kann, ermitteln? 
Dies funktioniert mit der o.g. Methode leider nicht ...

VG!
Antwortento top
#4
Hallöchen,
das geht so:

Sub Schaltfläche1_Klicken()
MsgBox ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
End Sub
   \\\|///      Hoffe, geholfen zu haben.
   ( ô ô )      Grüße, André aus G in T  
 ooO-(_)-Ooo    (Excel 97-2016)
Antwortento top
#5
Hallo,

das geht sogar direkt (wird nur leider nicht mehr dokumentiert):
MsgBox ActiveSheet.Buttons(Application.Caller).Text
Gruß Uwe
[-] Folgende(r) 1 Benutzer sagt Danke an Kuwer für diesen Beitrag:
  • Wanderfalke
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste