Gruppe
Funktion
Problem
Jedem Buchstaben in Spalte A ist ein Wert zugeordnet. Die Zuordnung befindet sich in Tabelle2. Entsprechend dieser Zuordnung sollen die jeweiligen Werte mit 3,14 multipliziert und in Spalte B eingetragen werden.
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