Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Dialog und CheckBox