Excel-Zellen nach Farbe sortieren
18.01.2022 12:53:45
erik
Wie kann ich den Code unten so ändern, dass die Tabelle oben grau, dann grün, dann orange und dann gelb sortiert.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:Y")) Is Nothing Then
Range("E2").Sort Key1:=Range("E2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Anzeige