VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Addition der 10 höchsten Werte einer Zahlenreihe

Gruppe

UDF

Bereich

Summe

Thema

Addition der 10 höchsten Werte einer Zahlenreihe

Problem

Aus der mittleren Zahlenreihe sollen die 10 höchsten Werte addiert werden. Die jeweiligen Werte in der Zeile drüber und drunter werden dazugerechnet.

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.




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 UDF und Summe