Einträge nach Zellfarbe sortieren

 

Folgendes Makro sortiert die Zellen A1 bis A10 nach Zellfarben in aufsteigender Reihenfolge.
Maßgebend für das sortieren ist die Farbzahl (Index). Je größer der Farbindex desto weiter
hinten wird die Zelle einsortiert.
Um eine größeren Bereich zu sortieren müssen Sie nur den Wert in der For x-Schleife erhöhen.

Sub sortieren_nach_zellfarbe()
  Dim x As Byte
  'Hilfsspalte einfügen
  Columns(1).Insert Shift:=xlToRight
  
  'Farbwert in Hilfsspalte eintragen
  For x = 1 To 10
         Cells(x, 1) = Cells(x, 2).Interior.ColorIndex
  Next x
  
  'Sortieren
  Range("A:B").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlNo, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  
  'Hilfsspalte wieder entfernen
  Columns(1).Delete Shift:=xlToLeft
End Sub


Dies kann nützlich sein, um mit Zellfarbe versehene (markierte) Zellen zu bündeln.

 

Partnerlinks

Relevante Artikel

  • Trennen von Zellinhalten - Text in Spalten

    Dieses Beispiel zeigt, wie Zellinhalte die sich fortlaufend in einer Zelle befinden getrennt werden können. Voraussetzung...

  • Zeilen abhängig von einer Bedingung ausblenden

    In diesem Artikel zeigen wir Ihnen, wie Sie mithilfe eines einfachen VBA-Makros in Excel Zeilen basierend auf bestimmten...

  • Liniertes Computerpapier erzeugen

    Mit dem nachfolgenden Code ist es möglich, jede zweite Zeile im markierten Bereich farbig zu hinterlegen. Es wird eine Art...

  • Zeilen (Einträge) abhängig vom Datum löschen

    Aus diesem Datenbestand sollen die Zeilen gelöscht werden, deren Datum in Spalte A im Monat November liegt.     A B C D 1 12.08.2002 daten daten daten 2 15.08.2002 daten daten daten 3 20.08.2002 daten daten daten 4 12.09.2002 daten daten daten 5 15.09.2002 daten daten daten 6 20.09.2002 daten daten daten 7 12.10.2002 daten daten daten 8 15.10.2002 daten daten daten 9 20.10.2002 daten daten daten 10 15.11.2002 daten daten daten 11 15.11.2002 daten daten daten 12 15.11.2002 daten daten daten 13 15.11.2002 daten daten daten 14 12.12.2002 daten daten daten 15 15.12.2002 daten daten daten 16 20.12.2002 daten daten daten Nach...

  • Doppelte Datensätze finden und farbig markieren (in unsortierer Liste)

    101053   Das folgende Makro sucht alle doppelten Einträge in einer Liste und markiert diese mit einer Farbe. Die Liste muss...

Wir benutzen Cookies
Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.