Mir gehts da wie wbendl, mit dem Schnippsl fang ich nicht wirklich was an.
Code:
SetzeAktivWennNichtDurchgestrichen optUnbefristet, "bmUnbefristet"
optBefristet.Value = Not optUnbefristet
HoleInsFormular tbxDatumBefristet, "bmBefristetDatum", ","
' "bei Krankheit" ist aktiviert, wenn in zugehöriger Textmarke "spätestens" steht
chkKrankeit.Value = InStr(1, ActiveDocument.Bookmarks("bmBefristetTextEnde").Ra nge.Text, "spätestens") > 0
HoleInsFormular tbxGrundBefristung, "bmBefristetGrund", vbCrLf, vbCr, "Grund der Befristung: "
EnableBefristungControls
Du könntest versuchen die vorletzte Zeile mit "HoleInsFormular tbxGrundBefristung ..." auszukommentieren, das hört sich noch am ehesten so an als ob in ein Textfeld mit Grund irgendein Wert reingeschrieben wird.