Thema: Mehrere Schaltflächen für ein Makro

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und CommandButton