Wie sortiert man mehrere Zeilen oder Spalten in Excel gleichzeitig, aber unabhängig voneinander?
In Excel können Sie die Sortierfunktion verwenden, um nur eine Zeile oder Spalte innerhalb eines Bereichs zu sortieren. Wenn Sie jedoch mehrere Zeilen oder Spalten gleichzeitig unabhängig voneinander sortieren möchten, um das im folgenden Screenshot gezeigte Ergebnis zu erhalten – gibt es hierfür schnelle Lösungen in Excel?
Mehrere Spalten gleichzeitig unabhängig voneinander mit VBA-Code sortieren
Mehrere Zeilen gleichzeitig unabhängig voneinander mit VBA-Code sortieren
Mehrere Spalten gleichzeitig unabhängig voneinander mit VBA-Code sortieren
Um mehrere Spalten gleichzeitig und unabhängig voneinander in aufsteigender Reihenfolge zu sortieren, hilft Ihnen der folgende VBA-Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Eingabefenster, in dem Sie aufgefordert werden, den Datenbereich auszuwählen, nach dem jede Spalte sortiert werden soll. Siehe Screenshot:
4. Klicken Sie anschließend auf OK. Daraufhin wurden alle Spalten gleichzeitig und unabhängig voneinander sortiert. Siehe Screenshot:
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Mehrere Zeilen gleichzeitig unabhängig voneinander mit VBA-Code sortieren
Möchten Sie mehrere Zeilen unabhängig voneinander sortieren, steht Ihnen hierfür ebenfalls ein VBA-Code zur Verfügung.
1. Wählen Sie die Daten aus, die Sie zeilenweise sortieren möchten.
2. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
3. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modul-Fenster ein.
VBA-Code: Mehrere Zeilen gleichzeitig unabhängig voneinander sortieren:
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. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Daraufhin wurden die Daten in jeder Zeile gleichzeitig sortiert. Siehe Screenshot:
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