Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Addition der 10 höchsten Werte einer Zahlenreihe

Gruppe

Summe

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