Tabellenkalkulation

Nach Farben sortieren...

Diskussionsgruppen
Betriebsysteme: Windows 7; WindowsVista; WindowsXP; Linux; BS-Sonstige
Software: Textverarbeitung; Tabellenkalkulation; Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; E-Mail/Outlook; Internet Browser; SW-Sonstige
Hardware: Mainboard/CPU/RAM; Grafikkarten; Peripherie; HW Sonstiges
Netzwerk: DSL; W-Lan; Telekommunikation; NW-Sonstiges
Programmierung: Skripte(PHP,ASP,Perl...); Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke

Frage

Hallo zusammen, kennt irgend jemand eine Möglichkeit, wie ich in Excel Zeilen nach Farben sortieren kann. In Spalte A stehen unter einander Namen. Einige davon sind blau, andere schwarz. Ich möchte nun diese Namen nach Farben sortieren. Wäre klasse, wenn jemand helfen könnte. Viele Grüße Rebekka

Antwort 1 von Hajo_Zi

Hallo Rebekka,

einfach Autofilter ein, auf das Dreieck an der Zelle klicken und nach Farben sortieren.

Gruß Hajo

Antwort 2 von RTM80

Hallo Hajo,
vielen Dank für die schnelle Antwort.
Habe vergessen zu schreiben, dass ich Excel 2003 nutze. Wo gibt es dort diese Funktion? Ich habe hier nur die Optionen
"Absteigend, Aufsteigend, Top10, Benutzerdefiniert". Unter Benutzerdefiniert kann ich nur auf Zellinhalte (nicht auf Farben) eingehen. Gibt es eine andere Möglichkeit.
LG Rebekka

Antwort 3 von Hajo_Zi

Hallo Rebekka,

den wichtigen Hinweis hast Du erst jetzt geschrieben Version 2003, dort gibt es diese Funktion noch nicht.
Dann Makro Lösung: Link zur Datei

Gruß Hajo

Antwort 4 von RTM80

Hallo Hajo,
bei mir handelt es sich am um Schriftfarben. Nicht um Zellenfarben. In diesem Fall scheint das Makro nicht zu funktionieren :(.
Kann ich denn in einer Hilfsspalte den Wert der Schriftfarbe der Inhalte in Zelle A ausgeben? Dann könnte ich nach dieses Hilfspalte sortieren.
LG Rebekka

Antwort 5 von Hajo_Zi

Hallo Rebekka,

ja, Link zur Datei

Gruß Hajo

Antwort 6 von Hajo_Zi

Hallo Rebekka,

oder Du schreibst das Makro u
Cells(intCounter, 3) = Cells(intCounter, 1).Interior.ColorIndex
ändern in Cells(intCounter, 3) = Cells(intCounter, 1).Font.ColorIndex

habe ich jetzt nicht getestet.

Gruß Hajo

Antwort 7 von RTM80

Jetzt hat's geklappt! Hajo, vielen Dank für deine Hilfe!
LG Rebekka