Hallo Experten,
gibt’s in EXCEL eine Formel, die mit Zahlenreihen die Ordnung 1,2,3,4,…herstellt ?
Die Funktion RANG ordnet bei Mehrfachbesetzung z. B. so:
1,1,3,4,4,4,7,…
Ich bräuchte:
1,1,2,3,3,3,4,…
Dank und Gruß Franz
Hallo Experten,
gibt’s in EXCEL eine Formel, die mit Zahlenreihen die Ordnung 1,2,3,4,…herstellt ?
Die Funktion RANG ordnet bei Mehrfachbesetzung z. B. so:
1,1,3,4,4,4,7,…
Ich bräuchte:
1,1,2,3,3,3,4,…
Dank und Gruß Franz
gibt’s in EXCEL eine Formel, die mit Zahlenreihen die Ordnung
1,2,3,4,…herstellt ?
Die Funktion RANG ordnet bei Mehrfachbesetzung z. B. so:
1,1,3,4,4,4,7,…
Ich bräuchte:
1,1,2,3,3,3,4,…
Hi Franz,
probiers mal so:
Tabellenblattname: Tabelle1
A B
1 8 1
2 6 2
3 8 1
4 3 5
5 4 4
6 2 6
7 8 1
8 6 2
9 5 3
Benutzte Formeln:
B1: =Rang2($A$1:blush:A$9;A1)
B2: =Rang2($A$1:blush:A$9;A2)
B3: =Rang2($A$1:blush:A$9;A3)
B4: =Rang2($A$1:blush:A$9;A4)
B5: =Rang2($A$1:blush:A$9;A5)
B6: =Rang2($A$1:blush:A$9;A6)
B7: =Rang2($A$1:blush:A$9;A7)
B8: =Rang2($A$1:blush:A$9;A8)
B9: =Rang2($A$1:blush:A$9;A9)
Option Explicit
Function Rang2(Bereich As Range, Wert As Double) As Integer
'Code ist von Hans
Dim n As Integer, Zelle As Integer, Groß As Integer
For n = 1 To Bereich.Rows.Count
If Groß Application.Large(Bereich, n) Then
Groß = Application.Large(Bereich, n)
Zelle = Zelle + 1
If Application.Large(Bereich, n) = Wert Then
Rang2 = Zelle
Exit Function
End If
End If
Next n
End Function
Gruß
Reinhard