Thema: Durchgehende Rangfolge

Home

Gruppe

UDF

Problem

Wenn bei mehrere gleiche Ränge vorhanden sind, besetzt die ExcelRANG()-Funktion den nachfolgenden Rang nicht mehr. Beispiel: 2 erste Plätze, dann folgt der 3. Platz. Wie kann ich die Plätze durchgehend, ohne Lücken, belegen?

Lösung

Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function XRang(rng As Range, dValue As Double) As Integer
   Dim iCounter As Integer, iCell As Integer, iLarge As Integer
   For iCounter = 1 To rng.Rows.Count
      If iLarge <> Application.Large(rng, iCounter) Then
         iLarge = Application.Large(rng, iCounter)
         iCell = iCell + 1
         If Application.Large(rng, iCounter) = dValue Then
            XRang = iCell
            Exit Function
         End If
      End If
   Next iCounter
End Function

Beiträge aus dem Excel-Forum zu den Themen UDF und Rang

Rangliste nach Altersklasse	Zahl von Range herausfinden?
Range-Wert aus der Statistik berechnen	Rang-Funktion für Strings?
Rang mit ""-Zellen ohne Dopplung	Range in Spalte bis erste freie zelle?
Range nach Werten durchsuchen und dann ausgeben	Range in Textbox
Problem mit Set & Range (kurios?!)	Aktivieren v. PivotFld-Ranges via Array & Schleife
Lohnsteuerberechnung (UDF, XLM-Datei, Webabfrage)	Problem bei Rang-Formel
Farbigen Rangebereich auswählen	Fehler bei Range mit Variable
Problem mit dem Rang-System	pvFields in PageRange überwachen_möglich?
Range-Definition - Syntax?	Ergebnis UDF ändert, wenn Tabelle deaktiviert wird
Set oWS = oWB.Worksheets(Range("link").Parent.Name	UDF soll nicht auf Daten anderer Dateien zugreifen
LastFillRange einschränken	Makro zum kopieren einer Range
vor Ausführung einer UDF Zwischenspeicher "retten&	rangfolge spezial
Range("...")	UDF - Argument ohne " " übergeben möglic
Methode Range für Objekt Worksheet fehlgeschlagen?	Klick in definierten Rangebereich startet Dialog
RANG-Bezüge variabel ermitteln	Rangliste
Rangfolge erstellen	Set Bereich = wks.Range
Column Range	Range sortieren - Frage zu Sort Key
range	Kombinierter Range mit Variablen
geht das auch ohne VBA? betr. Range	Range
Rang unter Bedingungen	ZS2 --> Die 2 v. einem Range (Spaltennr) ableiten
Auswertung Spaltennummer aus Range	Rang ohne Dopplung des Kriteriums
Rang-Problem	Rang richtig sortieren
SheetIndex aus Range- Inputbox auslesen	Verknüpfung von Werten innerhalb einer Range
Breite in Pixeln von einer Range ermitteln	Aus Range Zelle ableiten - Einfacher?
Range Copy - Range PasteSpecial xlPasteValues	VBA Syntax mit Range