Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1508to1512
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Nach Farben sortieren
11.08.2016 14:38:18
Markus
Hallo
ich verwende in Tabellen öfters Farben - ich färbe dann die Hintergrundfarbe der Zellen ein.
Mit den normalen Excel-Befehlen lassen sich die Zeilen auch nach Farben sortieren,
allerdings muss dann für jede Farbe ein SortBefehl eingegeben werden.
Meine Frage: gibt es einen einzigen Befehl, der die Zeilen nach Farben sortiert.
Die Auflistung der Farben ist egal, Hauptsache alle Roten, Gelben, Grünen .... und Violetten Farben sind in Blöcken zusammen.
Da ich jedesmal andere Farben in den Tabellen nehme, kann ich kein Standardmakro erstellen, da es manchmal 3, manchmal 7 oder nur 2 Farben sind, die ich immer in der Spalte A erstelle.
Danke für einen Tipp.
Markus

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Nach Farben sortieren
11.08.2016 14:54:49
Daniel
Hi
meines wissen nach nein, du kannst im Prinzip immer nur eine Farbe nach oben oder unten sortieren.
dein Vorhaben gelingt am einfachsten wahrscheinlich so:
1. erstelle dir eine kleine benutzerdefinierte Funktion, welche den RGB-Wert der Hintergrundfarbe ausliest. Dazu kommt dieser Code in ein allgemeines Modul
Function Farbe(Zelle As Range) As Long
Farbe = Zelle(1).Interior.Color
End Function
2. bevor du nach Farbe sortieren willst, schreibst du dann in einer Hilfsspalte am Tabellenende diese Formel: =Farbe(A1) und kopierst sie bis zum Tabellenende
3. sortiere dann die Tabelle nach dieser Hilfsspalte, gleiche Farben sollten danach bei einander stehen.
Beachte, dass du erst umfärben und dann die Formel eintragen musst.
Das Umfärben löst keine Neuberechnung der Formeln aus, dh du hast dann u.U. veraltete Werte in den Zellen stehen.
Gruß Daniel
Anzeige
AW: Nach Farben sortieren
11.08.2016 15:08:16
Peter
Hallo Markus,
vielleicht so:
Public Sub Sortiere_Farben()
Dim lRow   As Long
Dim lRowL  As Long
With ThisWorkbook.Worksheets("Tabelle2")
'        die letzte Zeile in Spalte A ermitteln
lRowL = .Cells(.Rows.Count, 1).End(xlUp).Row
For lRow = 1 To lRowL ' von Zeile 1 bis zur letzten belegten
'            die Spalte 256 der jeweiligen Zeile mit der Farbe füllen
.Cells(lRow, 256).Value = .Cells(lRow, 1).Font.ColorIndex
Next lRow
'         die Daten bis Zeile 256 nach Spalte 256 sortieren
.Range("A:IV").Sort key1:=Range("IV1"), order1:=xlAscending
'         die Hilfs-Spalte 256 wieder löschen
.Columns(256).ClearContents
End With
End Sub

Gruß Peter
Anzeige
AW: Nach Farben sortieren
11.08.2016 15:28:44
Markus
Hallo Daniel und Peter
Daniel, Deine Lösung versuche ich in ein Add-In einzufügen.
Peter, danke für einen Tipp, aber da passiert gar nix.
Markus
AW: Nach Farben sortieren
11.08.2016 17:38:36
Peter
Hallo Markus,
bei mir läuft das Makro ohne Probleme und es wird nach den verwendeten Farben sortiert.
Gruß Peter

33 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige