Gruppe
Funktion
Bereich
SUMMEWENN
Thema
Werte in Abhängigkeit zur Währungsformatierung summieren
Problem
Die Werte in Spalte C sollen in Abhängigkeit der Währungsformatierung summiert werden.
Lösung
Darstellung nur anhand einer Beispielarbeitsmappe möglich.
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