Hi...
also der folgende Code funktioniert erst ab Excel 2007. Er ist natürlich auch sehr vereinfacht und sortiert nach "JEDER" Eingabe das gesamte Tabellenblatt nach Spalte A.
Private Sub Worksheet_Change(ByVal Target As Range)
Cells.Select
ActiveWorkbook.ActiveSheet.Sort.SortFields.Clear
ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A:A" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.ActiveSheet.Sort
.SetRange Range("A:XFD")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Färben kannst du komplette Spalten oder Zeilen, wenn du ganz einfach die gewünschten Spalten oder Zeilen markierst und die gewünschte Farbe auswählst...
Bei allen Zellen, die NICHT geschützt werden sollen, musst du bei "Zellen formatieren"-"Schutz" den Haken bei "Gesperrt" herausnehmen. Dann Menü "Überprüfen" und "Blatt schützen"
__________________
Der Klügere gibt nach... deshalb regieren die Dummen die Welt 
|