ich habe auf einem Tabellenblatt mehrere Checkboxen alle bis auf zwei sind Formularsteuerelement. Die anderen zwei sind ActiveX-Steuerelemente, und sind von einander abhängig. Ist die eine Checkbox aktiv, soll die andere aus sein. Das funktioniert auch alles wunderbar.
Jetzt möchte ich durch eine Schaltfläche eine Msg-Box aufgehen lassen, mit der Abfrage ob alle Checkboxen zurückgesetzten werden sollen.
Das hat wunderbar funktioniert, bis ich die beiden ActiveX-Steuerelemente eingefügt habe.
hab versucht diese beiden einzeln anzusprechen, aber bekomme hier den Laufzeitfehler 91. objektvariable oder with-blockvariable nicht festgelegt
Option Explicit
Dim optionen
Dim strName As String
Dim CheckBox_Schaltanlage As Excel.CheckBox '(ActiveX-Stuerelement)
Dim CheckBox_MBW As Excel.CheckBox '(ActiveX-Stuerelement)
Dim chkBox As Excel.CheckBox
'2109 Selection_Options
Sub Selection_Options()
Frei
Sheets("Options").Select
optionen = MsgBox("Sollen die Optionen zurückgesetzt werden / Should the options be reset?", vbYesNo)
If optionen = vbYes Then
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
Else
End If
Sheets("Options").Select
End Sub
'Dies habe ich nur zum testen geschrieben auch hier funktioniert es nicht
Sub Checkboxen_aus()
If Range("A16").Value = True Then
CheckBox_Schaltanlage.Value = False
CheckBox_MBW.Value = False
Else
End If
End Sub
Ich komme hier nicht weiter und ich wäre euch dankbar, wenn jemand einen Tipp für mich hätte.
LG
Sandra