Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

SummeWenn-Summierung über mehrere Blätter

Gruppe

Summewenn

Problem

In D1 soll die Summe aller Werte aus Spalte D der nachfolgenden Blätter ermittelt werden, sofern der Datumsbereich im jeweiligen Blatt der Bandbreite in den Zellen B1:B2 dieses Blattes entspricht.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function ThreeDSum()
   Dim dValue As Double
   Dim iCounter As Integer
   For iCounter = 2 To Worksheets.Count
      With Worksheets(iCounter)
         dValue = dValue + _
            WorksheetFunction.SumIf(.Range("C2:C250"), _
         ">=" & CDbl(Range("B1")), .Range("D2:D250")) - _
         WorksheetFunction.SumIf(.Range("C2:C250"), _
         ">" & CDbl(Range("B2")), .Range("D2:D250"))
      End With
   Next iCounter
   ThreeDSum = dValue
End Function