Gruppe
Dialog
Problem
Der Name der zuletzt erstellten CheckBox wird ausgelesen um gemeldet.
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