Hallo Zusammen,
Ich verzweifel langsam. Ich habe das Internet durchforstet, diverse Foren, finde aber nicht die Lösung.
Ich möchte bei vier multiple Choice Kästchen das ausfüllen einer Zelle mit einem x erwirken.
mein Code funktioniert nicht, es kommt immer die Meldung ganz am Ende.
Ich hoffe ihr könnt mir helfen.
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
|