Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub LastChkBox()
   Dim oOle As OLEObject
   Dim arr() As Integer
   Dim iCounter As Integer
   Dim sName As String
   For Each oOle In ActiveSheet.OLEObjects
      If TypeName(oOle.Object) = "CheckBox" Then
         iCounter = iCounter + 1
         sName = oOle.Name
         sName = WorksheetFunction.Substitute(sName, "CheckBox", "")
         ReDim Preserve arr(1 To iCounter)
         arr(iCounter) = CInt(sName)
      End If
   Next oOle
   
   MsgBox "Name der zuletzt erstellten CheckBox:" & vbLf & _
     "CheckBox" & WorksheetFunction.Max(arr)
End Sub

    

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