ole.Object
09.04.2021 14:47:21
Siegfried
ich möchte den Zustand von Formularsteuerelementen (Kontrollkästchen) per VBA beeinflussen, komme aber nicht so recht weiter.
Den folgenden Code habe ich in der Hilfe gefunden, er funktioniert bei mir nicht.
Sub Schaltfläche12_Klicken()
Dim oOle As OLEObject
Dim arr() As String
Dim iCounter As Integer
For Each oOle In ActiveSheet.OLEObjects
If Not Intersect(oOle.BottomRightCell, Range("A1:AF1")) Is Nothing And TypeName(oOle. _
Object) = "CheckBox" Then
If oOle.Object.Value = True Then
iCounter = iCounter + 1
arr(iCounter) = oOle.Name
End If
End If
Next oOle
If iCounter = 0 Then
Beep
Else
For iCounter = 1 To UBound(arr)
Debug.Print arr(iCounter)
Next iCounter
End If
End
Sub
Wer kann mir helfen?
Gruß
Siegfried
