Direkt zum Inhalt

Wie sortiere ich Arbeitsblätter in Excel in alphabetischer / alphanumerischer Reihenfolge?

Normalerweise können Sie die Reihenfolge der Arbeitsblattregisterkarten in Excel sortieren oder anordnen, indem Sie die Blattregisterkarten auf die Registerkartenleiste ziehen und dort ablegen. Um dies mit mehreren Arbeitsblättern zu erreichen, können Sie die folgenden kniffligen Möglichkeiten in Betracht ziehen, um Arbeitsblätter in einer großen Arbeitsmappe schnell in alphabetischer / alphanumerischer Reihenfolge zu sortieren.

Sortieren Sie Arbeitsblätter in alphabetischer / alphanumerischer Reihenfolge mit VBA-Code
Sortieren Sie Arbeitsblätter mit Kutools for Excel in alphabetischer / alphanumerischer Reihenfolge


Sortieren Sie Arbeitsblätter in alphabetischer / alphanumerischer Reihenfolge mit VBA-Code

Im Microsoft Support Center gibt es ein Makro zum Sortieren von Arbeitsblättern nach Alpha. Wir können es mit folgenden Schritten anwenden:

1.  Halten Sie die ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2.  Klicken Sie auf Kostenlos erhalten und dann auf Installieren. Insert > Modulund fügen Sie dann das folgende Makro in das Feld ein Modulfenster.

VBA: Sortieren Sie die Blätter in alphabetischer / alphanumerischer Reihenfolge

Sub SortWorkBook()
'Updateby20140624
Dim xResult As VbMsgBoxResult
xTitleId = "KutoolsforExcel"
xResult = MsgBox("Sort Sheets in Ascending Order?" & Chr(10) & "Clicking No will sort in Descending Order", vbYesNoCancel + vbQuestion + vbDefaultButton1, xTitleId)
For i = 1 To Application.Sheets.Count
    For j = 1 To Application.Sheets.Count - 1
        If xResult = vbYes Then
            If UCase$(Application.Sheets(j).Name) > UCase$(Application.Sheets(j + 1).Name) Then
                Sheets(j).Move after:=Sheets(j + 1)
            End If
            ElseIf xResult = vbNo Then
                If UCase$(Application.Sheets(j).Name) < UCase$(Application.Sheets(j + 1).Name) Then
                    Application.Sheets(j).Move after:=Application.Sheets(j + 1)
            End If
        End If
    Next
Next
End Sub

3. Drücken Sie die F5 Schlüssel zum Ausführen dieses Makros. Klicken Sie in der folgenden Eingabeaufforderung auf JaAlle Arbeitsblätter werden in aufsteigender alphabetischer Reihenfolge sortiert. und klicken Sie auf NeinAlle Arbeitsblätter werden in absteigender alphabetischer Reihenfolge sortiert.


Sortieren Sie Arbeitsblätter mit Kutools for Excel in alphabetischer / alphanumerischer Reihenfolge

Wenn Sie mit Makros nicht vertraut sind oder andere Methoden bevorzugen, können Sie es versuchen Kutools for Excel. Kutools for Excel's Blätter sortieren Tool kann alle Arbeitsblätter einfach sortieren.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Klicken Sie Kutoolen Plus > Arbeitsblatt > Blätter sortieren. Siehe Screenshot:

2. In dem Blätter sortieren Wählen Sie im Dialogfeld im rechten Bereich einen Sortiertyp aus, den Sie benötigen, z Alphasortierung, Alpha-numerische Sortierungund dann auf die Schaltfläche OK Taste. Siehe Screenshot:

Anschließend werden alle Arbeitsblätter nach dem angegebenen Sortiertyp sortiert. Siehe Screenshot:

doc-sort-sheet6

Kutools for Excel's Blätter sortieren Das Tool kann schnell alle Arbeitsblätter in der aktiven Arbeitsmappe neu anordnen. Es unterstützt verschiedene Sortiertypen, einschließlich Alphasortierung, Alpha-numerische Sortierung, Farbsortierung und Gleicht . Darüber hinaus können Sie Arbeitsblätter nach oben / unten verschieben und die Sortierung zurücksetzen.

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.


Demo: Sortieren Sie alle Arbeitsblätter in alphabetischer / alphanumerischer Reihenfolge


In Verbindung stehender Artikel:

Sortieren Sie die Arbeitsblattregisterkarten nach Farbe

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


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!

Comments (81)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Grazie, ha funzionato perfettamente e mi ha risparmiato un sacco di lavoro. Complimenti
Rated 5 out of 5
This comment was minimized by the moderator on the site
Bom dia a macro funcionou porém com uma falha, veja no exemplo:
Abas (ANEXO 1, ANEXO 10, ANEXO 100, ANEXO 2, ANEXO 20)
Em uma planilha com os anexos acima ele organiza exatamente como está acima
Ele respeita a ordem somente a cada 10

Alguém sabe como corrigir? Olhei no font da macro mas não encontrei o problema
This comment was minimized by the moderator on the site
Macro qui marche parfaitement, en 30s c'est fait. Merci beaucoup
Rated 5 out of 5
This comment was minimized by the moderator on the site
Does anyone know how I would negate text from this macro? for example if my sheets were named "cafe 1st floor" and "kitchen 2nd floor" but id like to get rid of "cafe" and "kitchen"
thank you!
This comment was minimized by the moderator on the site
not working if your sheet was number ex: 1, 2, 10 12,
after sort: 1, 10, 12, 2
This comment was minimized by the moderator on the site
Hi Imd,
Do you mean all your sheet names are numbers and want to sort them ascending or descending? You can try the below VBA.

Sub Test1()

Dim i As Integer, j As Integer

For i = 1 To Sheets.Count

For j = 1 To Sheets.Count - 1

If Val(Replace(UCase(Sheets(j).Name), "SHEET", "")) > Val(Replace(UCase(Sheets(j + 1).Name), "SHEET", "")) Then Sheets(j).Move After:=Sheets(j + 1)

Next j

Next i

End Sub
This comment was minimized by the moderator on the site
Thank you for the macro !!!
This comment was minimized by the moderator on the site
Thank you for your help, very much appreciated...
This comment was minimized by the moderator on the site
I don't know VBA at all but your instructions worked perfectly. Thank you so much!
This comment was minimized by the moderator on the site
Thank you :)
This comment was minimized by the moderator on the site
Very helpful :) Thank you!
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations