https://www.herber.de/bbs/user/55515.zip
wie kann ich die Checkboxen im Excelsheet "Checkliste WEP" durch VBA auslesen, sowie aktivieren und deaktivieren?
Kann jemand da kurz mal nei schauen?
Danke und Mfg
Private Sub CommandButton1_Click()
Dim objCtrl As Object
Dim objCB As MSForms.CheckBox
'Möglichkeit 1 - alle CB´s durchlaufen
For Each objCtrl In Me.Controls
If TypeOf objCtrl Is MSForms.CheckBox Then 'Nur CheckBoxen ansprechen
Debug.Print objCtrl.Caption
Debug.Print objCtrl.Value
objCtrl.Enabled = False 'oder true = aktivieren
objCtrl.Value = True
End If
Next
'Möglichkeit 2 - einzelne CB´s ansprechen
Set objCB = Me.cb_batterieabdeckung
MsgBox objCB.Value
objCB.Enabled = True
objCB.Value = False 'oder false = deaktivieren
End Sub
MfG
Peter