Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei jedem Aufruf eine andere Prozedur aufrufen.

Gruppe

Click

Problem

Bei jedem Schaltflächenklick soll eine andere Prozedur aufgerufen werden.

Lösung
Geben Sie den Ereigniscode in die nachfolgend genannten Module ein.

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