VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Aktivieren mehrerer CheckBoxes unterbinden

Gruppe

Dialog

Bereich

CheckBox

Thema

Aktivieren mehrerer CheckBoxes unterbinden

Problem

Die Position der angeklickten CheckBox soll festgestellt und mehrfaches Anklicken in einer Zeile verhindert werden. Optionsfelder sollen keine eingesetzt werden.

Lösung

Den nachfolgenden Code in ein Standardmodul eingeben und den CheckBoxes aus der Formular-Symbolleiste zuweisen.




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