#Wert in eigener Funktion abfangen

Function StS_MaxWenn(aRange As Range, vdatum As Date, bdatum As Date, sp_datum As Long, aFunc  _
As Long, sp_func As Long)
'Spalten aus Tabelle Korrigieren, da Array bei 1 beginnt
sp_datum = sp_datum - 10
sp_func = sp_func - 10
'MsgBox (aRange.Address)
Dim vArray 'Array
Dim i As Long, j As Long, k As Long
vArray = aRange 'Bereich in Array einlesen (inkl. Überschrift)
vArray = WorksheetFunction.Transpose(vArray) 'Spalten und Zeilen tauschen
For i = UBound(vArray, 2) To 1 Step -1 'Von hinten nach vorn durchlaufen
'MsgBox (vArray(17, 1))
If vArray(sp_datum, i) >= vdatum And vArray(sp_datum, i)