Wie sortiert man Arbeitsblattregisterkarten in Excel nach Farbe?
Beim Arbeiten mit umfangreichen Excel-Arbeitsmappen, die mehrere Arbeitsblätter enthalten, erleichtert das Farbcodieren der Arbeitsblattregisterkarten deren visuelle Kategorisierung und Organisation. Excel bietet jedoch keine integrierte Funktion, um Arbeitsblattregisterkarten automatisch nach Farbe zu sortieren. In diesem Artikel stellen wir Ihnen zwei effektive Methoden vor, wie Sie Ihre Arbeitsblattregisterkarten in Excel nach Farbe sortieren können.
Arbeitsblattregisterkarten nach Farbe mithilfe von VBA-Code sortieren
Arbeitsblattregisterkarten nach Farbe mit Kutools für Excel sortieren
Arbeitsblattregisterkarten nach Farbe mithilfe von VBA-Code sortieren
Mit dem folgenden VBA-Code können Sie Ihre Registerkarten ganz einfach nach Farbe sortieren – so geht’s:
1. Klicken Sie auf „Developer“ > „Visual Basic“. Es öffnet sich ein neues „Microsoft Visual Basic for Applications“-Fenster. Klicken Sie auf „Insert“ > „Module“ und fügen Sie den folgenden Code in das Modul ein:
VBA: Alle Blätter nach Farben sortieren.
Sub SortWorkBookByColor()
'UpdatebyExtendoffice
Dim xArray1() As Long
Dim xArray2() As String
Dim n As Integer
Application.ScreenUpdating = False
If Val(Application.Version) >= 10 Then
For i = 1 To Application.ActiveWorkbook.Worksheets.Count
If Application.ActiveWorkbook.Worksheets(i).Visible = -1 Then
n = n + 1
ReDim Preserve xArray1(1 To n)
ReDim Preserve xArray2(1 To n)
xArray1(n) = Application.ActiveWorkbook.Worksheets(i).Tab.Color
xArray2(n) = Application.ActiveWorkbook.Worksheets(i).Name
End If
Next
For i = 1 To n
For j = i To n
If xArray1(j) < xArray1(i) Then
temp = xArray2(i)
xArray2(i) = xArray2(j)
xArray2(j) = temp
temp = xArray1(i)
xArray1(i) = xArray1(j)
xArray1(j) = temp
End If
Next
Next
For i = n To 1 Step -1
Application.ActiveWorkbook.Worksheets(CStr(xArray2(i))).Move after:=Application.ActiveWorkbook.Worksheets(Application.ActiveWorkbook.Worksheets.Count)
Next
End If
Application.ScreenUpdating = True
End Sub2. Drücken Sie anschließend „F5“ oder klicken Sie auf die Schaltfläche „Run“, um den Code auszuführen – schon sind alle Arbeitsblattregisterkarten nach Farbe sortiert.
 |
 |
 |
Arbeitsblattregisterkarten nach Farbe mit Kutools für Excel sortieren
Mit Kutools ordnen Sie Ihre Registerkarten im Handumdrehen nach Farbe – sparen wertvolle Zeit und umgehen lästiges manuelles Sortieren oder komplizierten VBA-Code. In diesem Abschnitt zeigen wir Ihnen, wie Sie mit Kutools für Excel Ihre Arbeitsblattregisterkarten mühelos nach Farbe sortieren.
Wenn Sie Kutools für Excel installiert haben, können Sie Arbeitsblattregisterkarten mit den folgenden Schritten sortieren:
1. Klicken Sie auf „KUTOOLS PLUS“ > „Worksheet“ > „Alle Blätter sortieren“.
2. Klicken Sie im Dialogfeld „Alle Blätter sortieren“ auf die Schaltfläche „Farbsortierung“ – die neue Reihenfolge der Registerkarten wird anschließend im Bereich „Nach der Sortierung“ angezeigt.
3. Klicken Sie anschließend auf „OK“, um die Registerkarten zu sortieren.
Diese Funktion ermöglicht es Ihnen, alle Arbeitsblätter in der aktuellen Arbeitsmappe schnell neu anzuordnen. Sie unterstützt mehrere Sortierarten, darunter „Alphabetische Sortierung“, „Exakte Sortierung“, „Farbsortierung“ und „Umgekehrt“. Zudem können Sie Arbeitsblätter gezielt nach oben oder unten verschieben und die Sortierung jederzeit zurücksetzen.
Das Sortieren von Arbeitsblattregisterkarten nach Farbe in Excel verbessert die Übersichtlichkeit und erleichtert die Navigation in umfangreichen Arbeitsmappen. Obwohl Excel hierfür keine integrierte Funktion bietet, stellen wir Ihnen in diesem Artikel zwei praktische Methoden vor. Wählen Sie die Methode, die am besten zu Ihren Anforderungen passt, und nutzen Sie die Registerkartenfarbfunktion von Excel optimal, um Ihren Arbeitsablauf effizienter zu gestalten! Wenn Sie weitere Excel-Tipps und -Tricks entdecken möchten,bietet unsere Website Tausende von Anleitungen.
Verwandter Artikel:
Arbeitsblätter in alphabetischer / alphanumerischer Reihenfolge in Excel sortieren
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