Formularsteuerelement OptionButton per VBA
11.05.2016 10:41:48
Arhur
Vor mir liegen ein paar Codezeilen, die nicht wirklich laufen möchten ...
Ich habe eine Gruppe OptionButtons aus den Formularsteuerelementen (nicht ActiveX) gruppiert und würde gerne die Zuweisung den verlinkten Zelle per Code unterstützt bekommen. Leider gelingt es mir nicht. Es folgt die Fehlermeldung 438 - "Objekt unterstützt diese Eigenschaft oder Methode nicht".
Ihr seht das Problem sicherlich gleich :).
Sub optbut()
Dim loShape As Shape
Dim loShpGrp As Object
Dim llShpType As Long
Dim poSel As Object
'On Error Resume Next
Set poSel = ActiveSheet.Shapes("Gruppierung 1")
llShpType = poSel.Type
If (llShpType = msoGroup) Then
Set loShpGrp = poSel.GroupItems
For Each loShape In loShpGrp
Select Case loShape.FormControlType
Case xlOptionButton, xlCheckBox
With ActiveSheet.Shapes(loShape.Name)
.Value = xlOff
.LinkedCell = "A3"
End With
End Select
Next
Set loShpGrp = Nothing
End If
End Sub
Zur Vereinfachung ist hier eine Beispieldatei angehängt.
https://www.herber.de/bbs/user/105501.xlsm
Gruß, Arthur.