Wie sortiere ich Arbeitsblattregisterkarten in Excel nach Farbe?
Um beispielsweise eine Arbeitsmappe mit zu vielen Arbeitsblättern einfach zu verarbeiten und zu verwalten, können Sie der entsprechenden Arbeitsblattregisterkarte eine Registerkartenfarbe hinzufügen und anschließend die Blattregisterkarten in Excel anhand ihrer Farben sortieren und identifizieren. Dieser Artikel zeigt Ihnen, wie schnell Sie Blattregisterkarten in Excel wie folgt nach Farbe sortieren können:
Sortieren Sie Arbeitsblatt-Registerkarten nach Farbe mit VBA-Code
Sortieren Sie Arbeitsblattregisterkarten mit Kutools for Excel nach Farbe
Sortieren Sie Arbeitsblatt-Registerkarten nach Farbe mit VBA-Code
Mit dem folgenden VBA-Code können Sie die Registerkarten nach Farbe sortieren. Bitte gehen Sie wie folgt vor:
1 Klicken Entwickler:in / Unternehmen > Visual BasicEin neuer Microsoft Visual Basic für Anwendungen Fenster wird angezeigt, klicken Sie auf Insert > Modulund geben Sie den folgenden Code in das Modul ein:
VBA: Sortieren Sie die Blätter nach Farben.
Sub SortWorkBookByColor()
'Updateby20140624
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 Sub
2. Dann klick Schaltfläche, um den Code auszuführen. Alle Arbeitsblattregisterkarten wurden nach Farben sortiert. Siehe Screenshots:
Sortieren Sie Arbeitsblattregisterkarten mit Kutools for Excel nach Farbe
Mit der Blätter sortieren of Kutools for ExcelSie können nicht nur die Blattregisterkarten nach Farbe sortieren, sondern auch schnell die Blattregisterkarten nach Alpha oder Alpha Numerisch sortieren.
Kutools für Excel: Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen. Hol es dir jetzt.
Wenn Sie Kutools für Excel installiert haben, können Sie Arbeitsblattregisterkarten mit den folgenden Schritten sortieren:
1 Klicken Unternehmen > Arbeitsblatt-Tools > Blätter sortieren, siehe Screenshot:
2. In dem Blätter sortieren Dialogfeld, klicken Sie auf Farbsortierung Klicken Sie auf die Schaltfläche, um die Reihenfolge der neuen Registerkarten im Bestellbereich Neue Blattregisterkarten anzuzeigen. Siehe Screenshot:
3. Und dann klicken OK um die Registerkarten zu sortieren.
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 auch nach oben / unten bewegen Arbeitsblätter und setzen Sie die Sortierung zurück. Klicken Sie hier, um mehr über dieses Dienstprogramm zu erfahren.
In Verbindung stehender 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, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
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!