ich habe ein Arbeitsblatt Tabelle, wenn ich diese anklicke sollen alle
vorhandenen OptionButton (20) auf False gestellt werden,
Wie geht das ?
gruß Kurt P
Private Sub Worksheet_Activate()
Me.OLEObjects.Enabled = False
End Sub
Gruß
Rudi
Private Sub Worksheet_Activate()
Me.OLEObjects= False
End Sub
Du solltest dich mehr mit den Eigenschaften der von dir verwendeten Objekte befassen.
Gruß
Rudi
Private Sub Worksheet_Activate()
Dim oOLE As OLEObject
For Each oOLE In Me.OLEObjects
If oOLE.progID = "Forms.OptionButton.1" Then
oOLE.Object = False
End If
Next
End Sub
Gruß
Rudi