VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Name der zuletzt erstellten CheckBox auslesen

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

    


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