Gruppe
Dialog
Bereich
CheckBox
Thema
Name der zuletzt erstellten CheckBox auslesen
Problem
Der Name der zuletzt erstellten CheckBox wird ausgelesen um gemeldet.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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