Gruppe
UDF
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.
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