Gruppe
Dialog
Problem
Die Position der angeklickten CheckBox soll festgestellt und mehrfaches Anklicken in einer Zeile verhindert werden. Optionsfelder sollen keine eingesetzt werden.
StandardModule: basMain
Sub MessageBox_Frage()
Dim rng As Range
Set rng = Range(ActiveSheet.CheckBoxes _
(Application.Caller).LinkedCell)
If WorksheetFunction.Sum(Rows(rng.Row)) > 1 Then
MsgBox "Es ist nur eine Bewertung pro Frage zulässig;" & _
"bitte entscheiden Sie sich!", vbCritical, "Zu oft geklickt!"
ActiveSheet.CheckBoxes(Application.Caller).Value = xlOff
End If
End Sub