If chk_1.Value = cNichtAktiviert And chk_2.Value = cNichtAktiviert And _
      chk_3.Value = cNichtAktiviert And chk_4.Value = cNichtAktiviert _
    And chk_5.Value = cNichtAktiviert And chk_6.Value = cNichtAktiviert And _
    chk_7.Value = cNichtAktiviert And chk_8.Value = cNichtAktiviert _
    And chk_9.Value = cNichtAktiviert And chk_10.Value = cNichtAktiviert And _
    chk_11.Value = cNichtAktiviert And chk_12.Value = cNichtAktiviert _
    And chk_13.Value = cNichtAktiviert And chk_14.Value = cNichtAktiviert And _
    chk_15.Value = cNichtAktiviert And chk_16.Value = cNichtAktiviert _
    And chk_17.Value = cNichtAktiviert And chk_18.Value = cNichtAktiviert And _
    chk_19.Value = cNichtAktiviert And chk_20.Value = cNichtAktiviert _
    And chk_21.Value = cNichtAktiviert And chk_22.Value = cNichtAktiviert And _
    chk_23.Value = cNichtAktiviert And chk_24.Value = cNichtAktiviert Then[
        MsgBox CStr(i) & ", du mußt mindestens eines auswählen!", _
        vbInformation, "Hinweis"
    End If