Wie sortiert man alle Blätter in Excel nach einem Zellenwert?
Beim Arbeiten mit einer Excel-Datei sortieren wir die Arbeitsblätter üblicherweise alphabetisch, numerisch oder nach Registerkartenfarben. Haben Sie aber schon einmal versucht, die Blattregisterkarten nach einem bestimmten Zellenwert zu sortieren?
Angenommen, Ihre Arbeitsmappe enthält Dutzende von Arbeitsblättern, und in jedem davon steht in Zelle A1 ein bestimmter Wert. Jetzt möchten Sie alle Arbeitsblätter innerhalb dieser Arbeitsmappe aufsteigend nach dem Wert in Zelle A1 sortieren – in diesem Artikel finden Sie die passende Lösung.
Alle Arbeitsblätter basierend auf einem Zellenwert mithilfe von VBA-Code sortieren
Alle Arbeitsblätter basierend auf einem Zellenwert mithilfe von VBA-Code sortieren
Es gibt keine direkte Methode, um alle Arbeitsblätter in Excel nach einem bestimmten Zellenwert zu sortieren – doch der folgende VBA-Code hilft Ihnen weiter.
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 im Modul-Fenster ein.
VBA-Code: Alle Blätter basierend auf einem Zellenwert sortieren
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie nach dem Einfügen des Codes die F5-Taste, um ihn auszuführen. Anschließend erscheint ein Eingabefeld, in dem Sie aufgefordert werden, eine Zelle auszuwählen, nach deren Wert die Blätter sortiert werden sollen. Siehe Screenshot:
4. Jetzt sehen Sie, dass alle Arbeitsblätter entsprechend dem Textwert der Zelle A1 jedes Arbeitsblatts aufsteigend sortiert wurden.
Hinweise:
1. Enthalten Ihre ausgewählten Zellen sowohl Zahlen als auch Textzeichenfolgen, werden die Blätter mit Zahlen vor denen mit Textzeichenfolgen sortiert.
2. Falls Zelle A1 leer ist, wird das entsprechende Arbeitsblatt ganz vorne aller Blätter einsortiert.
Verwandte Artikel:
Wie sortiert man Arbeitsblätter in Excel alphabetisch oder alphanumerisch?
Wie sortiert man Arbeitsblattregisterkarten nach Farbe in Excel?
Wie kehrt man die Reihenfolge der Arbeitsblattregisterkarten um?
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