Question

I have an EXCEL VBA function which should return the address of the first cell where the cell value is greater zero but it is not working. Does anyone has an idea why?

Code:

Function FindNextFilledCell(RowArray() As Integer, ColArray() As Integer)

For i = UBound(ColArray) To 0
    For j = UBound(RowArray) To 0
        CellValue = cells(RowArray(j), ColArray(i)).Value
        If CellValue > 0 Then
            FindNextFilledCell = cells(RowArray(j), ColArray(i)).Address(False, False)
            Exit Function
        End If
    Next j
Next i

End Function

Answer 1

I am still trying to understand what you are trying to do but I suggest the first error is:

For i = UBound(ColArray) To 0

instead of

For i = UBound(ColArray) To 0 step -1

This assumes you meant to search the cells in reverse order. If you did not

For i = 0 to UBound(ColArray)

might be better.

The next error I have spotted is that you have not defined the type of the value returned by the function. Try:

FindNextFilledCell(RowArray() As Integer, ColArray() As Integer) As String