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