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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen