VBA-Programmierung in Microsoft Excel

Werte in Abhängigkeit zur Währungsformatierung summieren

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 Funktion und SUMMEWENN