Thema: CommandButtons in verschiedenen Tabellen mit einem Makro

ClassModule: DieseArbeitsmappe

Private Sub Workbook_Open()
   Call UnionCommands
End Sub

StandardModule: Modul1

Dim Buttons() As New Klasse1

Sub UnionCommands()
   Dim wks As Worksheet
   Dim ButtonCount As Integer
   Dim ctl As Object
   ButtonCount = 0
   For Each wks In Worksheets
      For Each ctl In wks.OLEObjects
         If TypeName(ctl.Object) = "CommandButton" Then
            ButtonCount = ButtonCount + 1
            ReDim Preserve Buttons(1 To ButtonCount)
            Set Buttons(ButtonCount).ButtonGroup = ctl.Object
         End If
      Next ctl
   Next wks
End Sub

ClassModule: Klasse1

Public WithEvents ButtonGroup As CommandButton

Private Sub ButtonGroup_Click()
    MsgBox "Hallo von " & _
      ButtonGroup.Name & " aus " & ActiveSheet.Name
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und CommandButton