HERBERS Excel-Forum - die Beispiele

Thema: Addition der 10 höchsten Werte einer Zahlenreihe

Home

Gruppe

UDF

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

Summe durch Erfassung mehrerer Bedingungen Summe durch Erfassung mehrerer Bedingungen
Summe Summenprodukt nur einmal summewenn verbessern
Summenprodukt Zwischensummen innehralb einer Tabelle
SUMMENPRODUKT soll Text zurückgeben Summe von letzter freier Zelle in Spalte
Summe aus Texten+Zahl mit Bedingung Summen von zusammengehörenden Zeilen
Summe bilden Teilergebnis mit Summenprodukt kombiniert
Teilzahlen runden / bestimmte Summe Index Vergleich Formel mit Summenformel
Matrixformel mit Summenfunktion Summe VBA in abhängigkeit Datum
SUMMEWENN über mehrere Summewenn mit Bezug auf ein Datum
Summen bilden @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Summe bilden wenn zwei Kriterien übereinstimmen
Summewenn mit meheren Kriterien/Blaettern Filtern oder Summewenn !?
Summewenn/Summenprodukt mit mehreren Kriterien alle Zahlen-/Summenkombinationen eines Wertes
Summen Formel doppelte werte + summe
Formelproblem bei Summenprodukt SUMMENPRODUKT eine Nummer weiter
Summewenn = Zählenwenn (bei 0) Summewenn mit abhängigen Bereichen
Summewenn mit abhängigen Bereichen Frage zu summeWenn
SUMMEWENN auf verschiedene Spalten Summendprodukt istnummer
summewenn mit Zelle als Suchkriterium Summenprodukt bei Zahlen folge
Nur Summe bilden wenn keine leeren Zellen Summe Produkt?
Summe gewichtet Summenmakro
Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage) Alle Summen-Kombinationen aus 1-n Zellen
Summe / Wenn Matrix i.V.m Teilergebnis Summe von Werten die nur zw. X und Y sind
Summenbildung Problem mit wertAlles = tbSumme.Value & "+" &a
SummeWenn Summe und Zählen Wenn