Thema: Bei jedem Aufruf eine andere Prozedur aufrufen.

ClassModule: Tabelle1

Private Sub cmdAction_Click()
   Run ThisWorkbook.Name & "!" & "MyAction" & Range("C4").Value
   With Range("C4")
      If .Value = Range("B1").Value Then
         .Value = 1
      Else
         .Value = .Value + 1
      End If
   End With
End Sub

StandardModule: Modul1

Sub MyAction1()
   MsgBox "Aktion Nr. 1"
End Sub

Sub MyAction2()
   MsgBox "Aktion Nr. 2"
End Sub

Sub MyAction3()
   MsgBox "Aktion Nr. 3"
End Sub

Sub MyAction4()
   MsgBox "Aktion Nr. 4"
End Sub

Sub MyAction5()
   MsgBox "Aktion Nr. 5"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Ereignis und Click