Sortieren nach Zellfarben
Werner
Brauche mal wieder eure Hilfe :-).
Für mich mit meinen noch geringen Excel-Kenntnissen unlösbar.
Nun ja, in 3 Jahren gehe ich in den wohlverdienten Ruhestand (65). Dann habe ich viel Zeit um Excel richtig zu erlernen :-).
Aber bis dahin werde ich die Unterstützung des Forums wohl noch des Öfteren in Anspruch nehmen müssen und auch wollen.
Ein Super Forum mit tollen und hilfsbereiten Mitgliedern.
Ein dickes DANKE an ALLE!!!!!
Und nun zu meinem Problem
In einer Tabelle sollen die Zeilen automatisch nach Farben sortiert werden.
In den Zellen der Spalte B kann mittels Eingabe des Zeichens + der Zelle die Farbe GRÜN, mit dem Minuszeichen die Farbe ROT und mit der Eingabe des kleinen o die Farbe GELB gegeben werden. In den Zellen der Spalte C befinden sich bzw. wird jeweils das Datum des Eintrags eines Datensatzes eingegeben.
Nun möchte ich, dass automatisch eine Farbsortierung der Zeilen von Spalte B bis einschließlich Spalte P erfolgt, sobald die Farbe einer Zelle in der Spalte B verändert wird. Und zwar so, dass die Zeilen mit einer roten Zelle am Schluss der Liste angezeigt werden, und die grün Gekennzeichneten am Anfang der Liste stehen. Die gelb Gekennzeichneten befinden sich demnach zwischen Grün und Rot. Zudem soll jeder Farbbereich nach Datum sortiert werden.
Und das alles automatisch sobald die Farbe einer Zelle der Spalte B geändert wird.
Da die Datei größer (620) als 300 KB ist, kann sie hier runtergeladen werden.
www.garment-technician.com/Downloads/TEST-MaRe_ed.06.xls
In das Tabellenblatt Material request Anforderung gehört noch der nachfolgende Code. Den habe ich rausgenommen, da sich der Schutz diverser Spalten nicht aufheben lässt solange der Code eingefügt ist.
(Allgemein)
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Unprotect "Passwort" With Range("B:P") .Font.Italic = False .Font.ColorIndex = xlAutomatic End With With Target If .Column = 2 And .Row > 1 Then Range(Cells(.Row, 1), Cells(.Row, 11)).Font.Italic = True Range(Cells(.Row, 1), Cells(.Row, 11)).Font.ColorIndex = 10 End If End With ActiveSheet.Protect "Passwort" End Sub End Sub
Vielen Dank für eure Hilfe
Gruß
Werner
