Note: The other languages of the website are Google-translated. Back to English

Wie sortiere ich mehrere Zeilen oder Spalten gleichzeitig in Excel?

In Excel können Sie die Sortierfunktion anwenden, um nur eine Zeile oder Spalte in einem Spaltenbereich zu sortieren. Wenn Sie jedoch mehrere Zeilen oder Spalten gleichzeitig sortieren müssen, wird der folgende Screenshot angezeigt. Gibt es schnelle Möglichkeiten, diese Aufgabe in Excel zu lösen?

doc mehrere Spalten sortieren 1

Sortieren Sie mehrere Spalten gleichzeitig unabhängig mit VBA-Code

Sortieren Sie mehrere Zeilen gleichzeitig mit VBA-Code


Pfeil blau rechte Blase Sortieren Sie mehrere Spalten gleichzeitig unabhängig mit VBA-Code

Um mehrere Spalten unabhängig voneinander in aufsteigender Reihenfolge zu sortieren, kann der folgende VBA-Code hilfreich sein. Gehen Sie dazu folgendermaßen vor:

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Mehrere Spalten gleichzeitig unabhängig voneinander sortieren:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, den Datenbereich auszuwählen, den Sie anhand der einzelnen Spalten sortieren möchten. Siehe Screenshot:

doc mehrere Spalten sortieren 2

4. Und dann klick OKwurden alle Spalten auf einmal abhängig sortiert, siehe Screenshot:

doc mehrere Spalten sortieren 1


Pfeil blau rechte Blase Sortieren Sie mehrere Zeilen gleichzeitig mit VBA-Code

Wenn Sie mehrere Zeilen unabhängig voneinander sortieren möchten, finden Sie hier auch einen VBA-Code für Sie.

1. Wählen Sie die Daten aus, die Sie nach den einzelnen Zeilen sortieren möchten.

doc mehrere Spalten sortieren 3

2. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

3. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.

VBA-Code: Sortieren Sie mehrere Zeilen gleichzeitig unabhängig voneinander:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, die Daten in jeder Zeile wurden sofort sortiert, siehe Screenshot:

doc mehrere Spalten sortieren 4


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
kte tab 201905

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Kommentare (11)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Wenn ich versuche, die Spalten zu sortieren, werden Daten außerhalb des Abschnittsbereichs sortiert! Warum ist das?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Es funktioniert großartig! Danke !
Dieser Kommentar wurde vom Moderator auf der Website minimiert
¿Cómo puedo ordenar por color múltiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich liebe das, ich bin neugierig auf die Funktionalität der Sortierung nach Farbe für jede Spalte einzeln. Ich habe das versucht, aber es hat nicht funktioniert:


Dim xRg als Bereich
Dim yRg als Bereich
Dim ws als Arbeitsblatt
Setze ws = ActiveSheet
On Error Resume Next
Set xRg = Application.InputBox(Prompt:="Range Selection:", _
Titel: = "Kutools für Excel", Typ: = 8)
Application.ScreenUpdating = False
Für jedes yRg in xRg
Mit ws.Sort
.SortFields.Clear
.SortFields.Schlüssel hinzufügen:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Header = xlNr
.MatchCase = Falsch
.Anwenden
Ende mit
Nächstes Jahr
Application.ScreenUpdating = True
End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank dafür. Es hat wirklich geholfen. Ich würde auch gerne wissen, wie man nach Farbe sortiert. Ich habe 26 Spalten mit jeweils unterschiedlichen Arten von Elementen, die durch die Schriftfarbe identifiziert werden. Ich möchte alle Spalten einzeln, aber in einer bestimmten Farbreihenfolge alphabetisch ordnen. Wie mache ich das?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sie haben mir mit dieser Lösung gerade einige Kopfschmerzen erspart! Danke vielmals!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
toller Beitrag, vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Спасибо тебе человек!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Meine Daten reichen von 0-100; Wenn ich versuche, mehrere Zeilen gleichzeitig zu sortieren, beginnt es die Daten mit den 100ern, sortiert dann den Rest numerisch vom kleinsten bis zum größten, wobei die 100er auf der kleinsten Seite des Bereichs stehen. Wie kann ich das beheben?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Aktualisieren; Ich habe festgestellt, dass nur nach der ersten Ziffer in der Nummer sortiert wird. Wie bringe ich es dazu, nach der ganzen Nummer zu sortieren?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Hallo Devin,
Der Code funktioniert gut in meinem Arbeitsblatt. Könnten Sie Ihre Excel-Datei oder Ihren Daten-Screenshot hier hochladen? Damit wir helfen können, zu überprüfen, wo das Problem liegt?
Vielen Dank!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL