VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte in Abhängigkeit von CheckBox-Aktivierung summieren

Gruppe

Dialog

Bereich

CheckBox

Thema

Werte in Abhängigkeit von CheckBox-Aktivierung summieren

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

    


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