ich habe eine Tabelle und eine Userform mit einer CheckBox. In der Tabelle, Zelle A4, ist der Wert 'Ja' eingetragen. Rufe ich nun die Userform auf, soll die Zelle A4 der Tabelle ausgelesen werden und wenn dort 'Ja' eingetragen ist, soll bei dieser CheckBox ein Haken gesetzt werden. Wenn die Zelle leer ist, soll entsprechend kein Haken gesetzt werden.
TextBoxen, ComboBoxen oder OptionButtons habe ich alles, zum Thema CheckBoxen finde ich aber irgendwie nichts. Muss ich zusätzlich noch etwas in den Eigenschaften ändern?
Private Sub Userform_Activate()
TextBox1.Value = Tabelle1.cells(p_aktuelleZeile, 1).Value
ComboBox1.Value = Tabelle1.cells(p_aktuelleZeile, 2).Value
If Tabelle1.Cells(p_aktuelleZeile, 3).Value = "Herr" Then
OptionButton1 = True
Else
OptionButton2 = True
End if
? CheckBox1 ?
End Sub
Vielen Dank für eure Hilfe.