Hallo,
über ein UF gebe ich Daten in eine jeweils markierte Zeile. U.a. wird bei aktiver Checkbox auch jeweils eine Zelle ein X erhalten (erster TeilCode). Wenn ich nun später den jeweiligen Zeileneintrag wieder in das UF holen möchte gelingt das auch soweit, nur bei den CheckBoxes "hakt" es irgendwie. Die Zelle mit jeweils "X" wird zwar erkannt und die Checkbox erhält auch ein Häkchen, allerdings scheint es nicht so wirklich erkannt zu werden, weil es bei geändertem Datensatz nicht in die jeweilige Zelle mehr übertragen wird und ich es manuell nacherfassen muss. Gibt es da bei CheckBoxes "Rückgabe des Zellwertes an die Box" Besonderheiten zu beachten? - Danke schon jetzt für die Rückmeldungen und Herzliche Grüße - Wolfgang

If Me.CheckBox1 = True Then
Cells(ActiveCell.Row, 12).Value = "X"
End If
If Me.CheckBox2 = True Then
Cells(ActiveCell.Row, 13).Value = "X"
End If
If Me.CheckBox3 = True Then
Cells(ActiveCell.Row, 14).Value = "X"
End If
If Me.CheckBox4 = True Then
Cells(ActiveCell.Row, 15).Value = "X"
End If
If Me.CheckBox5 = True Then
Cells(ActiveCell.Row, 16).Value = "X"
End If
If Me.CheckBox6 = True Then
Cells(ActiveCell.Row, 17).Value = "X"
End If
If Me.CheckBox7 = True Then
Cells(ActiveCell.Row, 18).Value = "X"
End If

Private Sub UserForm_Activate()
'die CheckBoxes mit Zellwert beschicken
'Dim lRow As Long
CheckBox1 = Cells(lRow, 12)
CheckBox2 = Cells(lRow, 13)
CheckBox3 = Cells(lRow, 14)
CheckBox4 = Cells(lRow, 15)
CheckBox5 = Cells(lRow, 16)
CheckBox6 = Cells(lRow, 17)
CheckBox7 = Cells(lRow, 18)