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 :-)