VBA-Programmierung in Microsoft Excel

Addition der absoluten Zahlen

StandardModule: basMain

Function Rank10Plus(rng As Range)
   Dim rngAct As Range
   Dim iValue As Integer
   For Each rngAct In rng.Cells
      If WorksheetFunction.Rank(rngAct.Value, rng) < 11 Then
         iValue = iValue + rngAct.Value
         iValue = iValue + rngAct.Offset(-1, 0).Value
         iValue = iValue + rngAct.Offset(1, 0).Value
      End If
   Next rngAct
   Rank10Plus = iValue
End Function

    

Beiträge aus dem Excel-Forum zu den Themen Matrix und Matrixfunktion