ich habe folgende benutzerdefinierte Funktion erstellt und möchte gern, wenn das Ergebnis #Wert ist eine 0 ausgeben.
Wie kann ich dies erreichen?
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)
Danke EuchVG SteffenS