Mehrere Commandbuttons mit einem Code ausführen
11.05.2016 16:30:11
Hewad
ich möchte mehreren Commandbuttons einen einzigen Code zuweisen. Diese sind alle auf einem Sheet.
Beim Klicken einer der mehreren Buttons, soll die Bezeichnung (Capiton) ausgelesen werden und das entsprechende Arbeitsblatt - an Hand des Namens - ausgewählt werden.
Das funktioniert soweit, allerdings muss ich diesen Code für jeden Button kopieren. Gibt es eine Möglichkeit mit der Schleife ("ButtonCommandButton" &i_Click), das zu bewältigen?
Private Sub CommandButton1_Click() ' ich habe mehere Buttons
On Error Resume Next
Dim ws_name As String
Dim oleObj_number As Integer
oleObj_number = ActiveSheet.OLEObjects.Count
ws_name = ActiveSheet.OLEObjects("CommandButton1").Object.Caption
If ws_name "" Then
Sheets(ws_name).Select
End If
End Sub
Danke im Voraus :-)
Anzeige