VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte in Abhängigkeit zur Währungsformatierung summieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Funktion und SUMMEWENN