Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte in Abhängigkeit von CheckBox-Aktivierung summieren

Gruppe

CheckBox

Problem

Bei Klick auf eine CheckBox sollen die Werte aus Spalte B von den Zellen addiert werden, deren zugeordnete CheckBox aktiviert ist.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub CheckBox1_Click()
   Call GetSum
End Sub

Private Sub CheckBox2_Click()
   Call GetSum
End Sub

Private Sub CheckBox3_Click()
   Call GetSum
End Sub

Private Sub CheckBox4_Click()
   Call GetSum
End Sub

Private Sub CheckBox5_Click()
   Call GetSum
End Sub

Sub GetSum()
   Dim chb As OLEObject
   Dim dSum As Double
   Dim iChb As Integer
   For iChb = 1 To 5
      Set chb = OLEObjects(iChb)
      If chb.Object.Value = True Then
         dSum = dSum + chb.TopLeftCell.Offset(0, -1).Value
      End If
   Next iChb
   Range("B7").Value = dSum
End Sub