Gruppe
UDF
Problem
Die Funktion SUMMEWENN kann nicht in 3D-Bereichen angewandt werden. Wie kann ich dieses Problem beseitigen.
StandardModule: basMain
Function SuperSumIf(var As Variant, _
sFirst As String, sLast As String, _
colSearch As Integer, colValues As Integer)
Dim wks As Worksheet
Dim dValue As Double
Dim intSheet As Integer
For intSheet = Worksheets(sFirst).Index To _
Worksheets(sLast).Index
Set wks = Worksheets(intSheet)
dValue = dValue + _
WorksheetFunction.SumIf(wks.Columns(colSearch), _
var, wks.Columns(colValues))
Next intSheet
SuperSumIf = dValue
End Function