Select
Case
Chkbx
Case
1
Chkbx_BF =
True
Worksheets(
"Archiv"
).Cells(4 + i, 6) =
"x"
Case
2
Chkbx_WF =
True
Worksheets(
"Archiv"
).Cells(4 + i, 7) =
"x"
Case
3
Chkbx_WG =
True
Worksheets(
"Archiv"
).Cells(4 + i, 8) =
"x"
Case
4
Chkbx_JET =
True
Worksheets(
"Archiv"
).Cells(4 + i, 9) =
"x"
Case
Else
Chkbx_BF =
False
And
Chkbx_WF =
False
And
Chkbx_WG =
False
And
Chkbx_JET =
False
MsgBox
"Qualifikation ankreuzen!"
, vbOKOnly + vbInformation,
"Warnung"
End
Select