Hallo zusammen,

ich möchte mehreren Commandbuttons einen einzigen Code zuweisen.

Beim Klicken des Buttons soll die Bezeichnung (Capiton) ausgelesen werden und das entsprechende Arbeitsblatt - an Hand des Names - ausgewählt werden.

Für diesen Code bräuchte ich praktisch eine Schleife,

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