Wie sortiert man Daten in Excel in umgekehrter Reihenfolge?
In Excel ordnet die typische =RANG(Zelle; Bereich)-Formel Ihre Daten so, dass der größte Wert den Rang 1 erhält, während dem kleinsten Wert die niedrigste Rangzahl zugewiesen wird. Es gibt jedoch Situationen, in denen Sie diese Logik umkehren müssen – sodass der kleinste Wert den höchsten Rang und der größte Wert den letzten Rang erhält, wie in der folgenden Abbildung veranschaulicht. Das ist besonders nützlich, wenn Sie Daten analysieren, bei denen niedrigere Werte eine bessere Leistung darstellen, etwa bei Laufzeiten, Kosten oder Fehleranzahlen.
Daten in umgekehrter Reihenfolge sortieren|VBA-Code: Automatische Zuweisung umgekehrter Ränge
Daten in umgekehrter Reihenfolge sortieren
Um eine umgekehrte Rangfolge in Excel zu erstellen, passen Sie die Standard-RANK-Formel ganz einfach an, indem Sie ein zusätzliches Argument hinzufügen. So sortieren Sie Ihre Daten mühelos von der kleinsten zur größten Zahl – statt der Standardreihenfolge zu folgen.
Wählen Sie eine leere Zelle aus, in der das Ergebnis der umgekehrten Rangfolge angezeigt werden soll. Angenommen, Ihr Datenbereich befindet sich in den Zellen B2 bis B10. Geben Sie dann die folgende Formel in die erste Zelle neben Ihren Daten ein (z. B. in Zelle C2):
=RANK(B2,$B$2:$B$10,1)Nachdem Sie die Formel eingegeben haben, drücken Sie Enter. Um die Formel auf die anderen Zellen in Ihrer Spalte anzuwenden, nutzen Sie den Ausfüllkästchen-Griff: Positionieren Sie Ihren Mauszeiger über die untere rechte Ecke der Zelle, in die Sie die Formel eingegeben haben (C2). Sobald sich der Cursor in ein Pluszeichen verwandelt, ziehen Sie ihn nach unten, um alle restlichen Zellen neben Ihren Daten automatisch auszufüllen (in diesem Beispiel bis C10).
Sollte sich Ihr Datenbereich von dem gezeigten Beispiel unterscheiden, passen Sie einfach die Zellbezüge in der Formel entsprechend Ihren tatsächlichen Daten an. Beachten Sie: Die RANK-Funktion weist identischen Werten denselben Rang zu und überspringt anschließend die folgenden Ränge (z. B. erhalten bei zwei gleichwertigen Werten auf Platz 2 der nächste Wert den Rang 4).
Die umgekehrte Rangfolge ist besonders wertvoll, wenn Sie die niedrigsten Werte oder schnellsten Zeiten hervorheben möchten, und eignet sich ideal für Datensätze, bei denen Gleichstände entweder akzeptabel oder sogar zu erwarten sind.
VBA-Code: Automatische Zuweisung umgekehrter Ränge
Für größere Datensätze oder Szenarien, in denen sich Ihre Daten häufig aktualisieren und Sie eine stärker automatisierte Lösung benötigen, können Sie VBA-Code nutzen, um umgekehrte Ränge schnell und effizient zuzuweisen. Diese Methode ist ideal für Benutzer, die mit einfachen Programmieraufgaben vertraut sind und repetitive manuelle Arbeit vermeiden möchten.
1. Öffnen Sie den VBA-Editor, indem Sie auf Entwicklertools > Visual Basic klicken. Klicken Sie im Fenster „Visual Basic for Applications“ auf Einfügen > Modul, und fügen Sie den folgenden Code in den Modulbereich ein:
Sub AssignReverseRank()
Dim dataRange As Range
Dim outputRange As Range
Dim i As Long
Dim j As Long
Dim temp As Variant
Dim arr As Variant
Dim sortedArr As Variant
Dim rankArr() As Long
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set dataRange = Application.InputBox("Select the data range to rank (single column):", xTitleId, "", Type:=8)
If dataRange Is Nothing Then Exit Sub
Set outputRange = Application.InputBox("Select the first cell for output ranks:", xTitleId, "", Type:=8)
If outputRange Is Nothing Then Exit Sub
arr = dataRange.Value
ReDim rankArr(1 To UBound(arr, 1), 1 To 1)
sortedArr = arr
' Sort the array in ascending order
For i = 1 To UBound(sortedArr, 1) - 1
For j = i + 1 To UBound(sortedArr, 1)
If sortedArr(i, 1) > sortedArr(j, 1) Then
temp = sortedArr(i, 1)
sortedArr(i, 1) = sortedArr(j, 1)
sortedArr(j, 1) = temp
End If
Next j
Next i
' Assign reverse ranks
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(sortedArr, 1)
If arr(i, 1) = sortedArr(j, 1) Then
rankArr(i, 1) = j
Exit For
End If
Next j
Next i
outputRange.Resize(UBound(rankArr, 1), 1).Value = rankArr
End Sub2. Um das Makro auszuführen, klicken Sie auf die 
Schaltfläche „Ausführen“ oder drücken Sie F5. Anschließend werden Sie aufgefordert, Ihren Datenbereich auszuwählen – wählen Sie dazu eine einzelne Spalte, die Sie in umgekehrter Reihenfolge sortieren möchten – und danach die erste Zelle anzugeben, in der die Rangfolge-Ergebnisse ausgegeben werden sollen. Klicken Sie nach jeder Auswahl auf „OK“.
Dieses Makro sortiert Ihre Daten in aufsteigender Reihenfolge und weist entsprechend umgekehrte Ränge zu, wobei der kleinste Wert den Rang 1 erhält. Es ist besonders nützlich, um Tausende von Einträgen auf einmal zu sortieren oder die Rangfolge in regelmäßig aktualisierten Berichten zu automatisieren.
Stellen Sie bei Verwendung dieses Makros sicher, dass Ihre Daten zusammenhängend und ausschließlich numerisch sind – nicht-numerische oder leere Zellen können zu fehlerhaften Ergebnissen führen. Reinigen Sie daher Ihre Daten vorab und speichern Sie Ihre Arbeitsmappe, bevor Sie das Makro ausführen, um unbeabsichtigte Änderungen zu vermeiden.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins