'komb.1-true.2-true.3-true.4-true.5-true.6-true
'1
If CEB_Nam.Checked = True then
    if CEB_Dat.Checked = False And CEB_Art.Checked = False And CEB_Zeit.Checked _
      = False And CEB_Fehl.Checked = False And CEB_Lev.Checked = False Then
        If ha(0) = TxB_Nam.Text Then übertrager(ha)
    End if
Else 
    ...
End if