[kapetang]

Καλησπέρα

Δοκίμασε τον κώδικα:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range, c As Range, bln As Boolean

    Set rng = Range("O3:O40")
    For Each c In rng
        bln = c.Value = "Fertig"
        Me.OLEObjects("CheckBox" & c.Row - 2).Visible = bln
        Me.OLEObjects("CheckBox" & c.Row - 2).Enabled = bln
    Next
    
End Sub