Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Name der zuletzt erstellten CheckBox auslesen

Gruppe

CheckBox

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