Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Mehrere Schaltflächen für ein Makro

Gruppe

CommandButton

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