Gruppe
Dialog
Bereich
CommandButton
Thema
Mehrere Schaltflächen für ein Makro
Problem
In einem Blatt habe ich 4 Schaltflächen, die alle mit demselben Makro verknüpft sind. Wie greife ich innerhalb des Makros auf den Namen der aufrufenden Schalterfläche zu?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn den Schaltflächen zu.
StandardModule: basMain
Sub MakroVerteiler()
Select Case Right(Application.Caller, 1)
Case "1": Call Makro1
Case "2": Call Makro2
Case "3": Call Makro3
Case "4": Call Makro4
End Select
End Sub
Sub Makro1()
MsgBox "Ich bin Makro1"
End Sub
Sub Makro2()
MsgBox "Ich bin Makro2"
End Sub
Sub Makro3()
MsgBox "Ich bin Makro3"
End Sub
Sub Makro4()
MsgBox "Ich bin Makro4"
End Sub