Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Sortierung absteigend

Sortierung absteigend
28.06.2017 09:15:21
Joachim
Hallo zusammen, dieser Code sortiert aufsteigend A --> Z. Ich hätte es gerne umgekehrt. Wer _
kann helfen ? Und vielen Dank schonmal.
Private Sub CommandButton1_Click()
Rows("5:" & Format(Range("H3").Value + 6, "0")).Sort Header:=xlYes, MatchCase:=False,  _
OrderCustom:=1, Orientation:=xlTopToBottom, _
Key1:=Range("C5"), Order1:=xlAscending, Key2:=Range("L5"), Order2:=xlAscending
Me.Hide: Unload Me
End Sub

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortierung absteigend
28.06.2017 09:17:10
Hajo_Zi
nicht xlAscending sondern xlAscending

AW: Sortierung absteigend
28.06.2017 09:20:57
yummi
Hallo Joachim
Orientation:=xlBottomToTop
Gruß
yummi
Korrektur
28.06.2017 09:26:56
yummi
sry falsch :-)
aufsteigend Order:=xlAscending und Orientation = xlTopToBottom
absteigend Order:=xlDescending und Orientation = xlTopToBottom
Gruß
yummi
Anzeige
AW: Sortierung absteigend
28.06.2017 09:28:10
Joachim
Beide Fälle funktionieren nicht
xlAscending steht ja drin
und das Ändern von Orientation:=xlTopToBottom auf xlBottomToTop hilft auch nicht.
hmmmmm ?
Makro aufzeichnen, Code studieren, Fertig (owT)
28.06.2017 09:26:02
EtoPHG

AW: Makro aufzeichnen, Code studieren, Fertig (owT)
28.06.2017 09:29:56
Hajo_Zi
solcher Code wird in 2013 nicht mehr aufgezeichnet, soweit ich das festgestellt habe.
Das ist eine Sortierung vor 2007.

Anzeige
Makro aufzeichnen, Code studieren, Fertig (owT)
28.06.2017 09:26:03
EtoPHG

AW: Makro aufzeichnen, Code studieren, Fertig (owT)
28.06.2017 09:32:23
Joachim
Erledigt ! Danke
xlDescending war der entscheidende Hinweis
;
Anzeige
Anzeige

Infobox / Tutorial

Absteigende Sortierung in Excel mit VBA


Schritt-für-Schritt-Anleitung

Um eine absteigende Sortierung in Excel mit VBA durchzuführen, kannst du den folgenden Code verwenden. Dieser Code sortiert die Daten in einem bestimmten Bereich absteigend nach einer angegebenen Spalte.

Private Sub CommandButton1_Click()
    Rows("5:" & Format(Range("H3").Value + 6, "0")).Sort Header:=xlYes, MatchCase:=False, _
    OrderCustom:=1, Orientation:=xlTopToBottom, _
    Key1:=Range("C5"), Order1:=xlDescending, Key2:=Range("L5"), Order2:=xlDescending
    Me.Hide: Unload Me
End Sub

In diesem Code musst du die Order1- und Order2-Parameter von xlAscending auf xlDescending ändern, um die absteigende Sortierung korrekt zu aktivieren.


Häufige Fehler und Lösungen

Einige häufige Fehler, die beim Sortieren absteigend in VBA auftreten können, sind:

  • Fehlerhafte Order-Parameter: Stelle sicher, dass du Order1:=xlDescending und Order2:=xlDescending verwendest. Der Fehler kann auftreten, wenn versehentlich xlAscending eingestellt ist.

  • Falsche Orientation: Wenn du die Orientation nicht richtig einstellst, kann die Sortierung nicht wie gewünscht funktionieren. Verwende Orientation:=xlTopToBottom für eine Sortierung von oben nach unten.

  • Unzureichende Bereichsangabe: Überprüfe, ob der Bereich, den du sortieren möchtest, korrekt im Code angegeben ist.

Ein Beispiel für die korrekte Verwendung wäre:

Rows("5:" & Format(Range("H3").Value + 6, "0")).Sort Key1:=Range("C5"), Order1:=xlDescending

Alternative Methoden

Neben dem Einsatz von VBA kannst du auch die Excel-Benutzeroberfläche für die absteigende Sortierung nutzen:

  1. Markiere den Bereich, den du sortieren möchtest.
  2. Gehe zum Reiter „Daten“.
  3. Klicke auf „Sortieren“.
  4. Wähle die entsprechende Spalte aus und stelle die Sortierreihenfolge auf „Absteigend“ ein.

Diese Methode ist besonders nützlich, wenn du keine Programmierkenntnisse hast oder schnell eine Sortierung durchführen möchtest.


Praktische Beispiele

Hier ist ein praktisches Beispiel, wie du eine absteigende Sortierung in einer Excel-Tabelle durchführen kannst. Angenommen, du hast folgende Daten in den Spalten C und L:

C L
10 20
30 10
20 30

Wenn du die Tabelle nach Spalte C absteigend sortierst, erhältst du:

C L
30 10
20 30
10 20

Verwende den oben angegebenen VBA-Code, um dies automatisiert zu erreichen.


Tipps für Profis

  • Makros verwenden: Speichere deinen VBA-Code als Makro, um die absteigende Sortierung schnell wiederholen zu können. Du kannst das Makro über einen Button oder eine Tastenkombination ausführen.

  • Debugging: Nutze die Debugging-Tools in VBA, um sicherzustellen, dass der Code wie gewünscht funktioniert. Du kannst die Ausführung Schritt für Schritt verfolgen.

  • Datenüberprüfung: Stelle sicher, dass die Daten, die du sortierst, korrekt formatiert sind (z.B. als Zahlen oder Text), um unerwartete Sortierergebnisse zu vermeiden.


FAQ: Häufige Fragen

1. Wie kann ich die Sortierung aufsteigend einstellen?
Ändere einfach die Parameter in deinem VBA-Code von xlDescending auf xlAscending.

2. Gibt es eine Möglichkeit, mehrere Spalten gleichzeitig absteigend zu sortieren?
Ja, du kannst mehrere Key-Parameter im Sortierbefehl angeben. Achte darauf, die Order-Parameter für jede Spalte auf xlDescending zu setzen.

3. Funktioniert dieser Code auch in älteren Versionen von Excel?
Ja, der Code sollte auch in älteren Versionen von Excel (2007 und früher) funktionieren, solange die VBA-Umgebung unterstützt wird.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige