Gruppe
UDF
Problem
In Spalte B sollen die Werte aus dem Bereich B7:B100 summiert werden, die den Kriterien Währung, Startdatum, Enddatum entsprechen.
StandardModule: Modul1
Function IfSum(rngAll As Range, sValuta As String) As Variant
Dim rng As Range
Dim var() As Variant
Dim iCounter As Integer
ReDim var(1 To rngAll.Cells.Count, 1 To 2)
For Each rng In rngAll.Cells
iCounter = iCounter + 1
var(iCounter, 1) = False
If InStr(rng.Text, sValuta) Then
var(iCounter, 2) = True
End If
Next rng
IfSum = var
End Function