Hallo miteinander,
heute möchte ich eine Anfrage bzgl. Buttons stellen.
In einer eigenen Symbolleiste befinden sich selbstdefinierte Buttons an denen ein Makro hinterlegt ist.
Mit Hilfe der Makros sollen verschiedene Zeilen aus einer Referenzmappe in die aktuelle Arbeitsmappe kopiert werden.
Die Makros unterscheiden sich nur durch den Namen der zu kopierenden Zeilen.
Ich möchte nun hinter allen Buttons das selbe Makro hinterlegen.
Der zu kopierende Bereich soll über den Namen des Buttons ermittelt werden.
Mit den folgenden beispielhaften Zeilen aus einem Forum bin ich leider gescheitert:
Sub Button
Dim Der_Button As String
Button = AktiveSheet.Shapes(Application.Caller).AlternativeText
MsgBox ("Der Button ") & Button & (" wurde gedrückt!")
EndSub
Wer kann weis Rat?
Vielen Dank im voraus
Jürgen