AW: Excel-Zellen nach Farbe sortieren
18.01.2022 15:16:54
UweD
Hallo
>> Sobald ich den Status ändere..
Was meinst du damit?
"Private Sub Worksheet_Change" reagiert auf Änderungen innerhalb von Zellen und löst das Makro aus.
(Mit der Änderung nur, wenn eine Zelle in B:Y geändert wird)
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim RNG As Range
If Not Intersect(Target, Range("B:Y")) Is Nothing Then
Set RNG = Range("E:E")
With ActiveWorkbook.ActiveSheet.Sort
.SortFields.Clear
.SortFields.Add(RNG, xlSortOnCellColor, xlAscending, _
, xlSortNormal).SortOnValue.Color = RGB(217, 217, 217) 'grau
.SortFields.Add(RNG, xlSortOnCellColor, xlAscending, _
, xlSortNormal).SortOnValue.Color = RGB(0, 176, 80) 'grün
.SortFields.Add(RNG, xlSortOnCellColor, xlAscending, _
, xlSortNormal).SortOnValue.Color = RGB(255, 192, 0) 'orange
.SortFields.Add(RNG, xlSortOnCellColor, xlAscending, _
, xlSortNormal).SortOnValue.Color = RGB(255, 255, 0) 'gelb
.SetRange RNG
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
End If
End Sub
LG UweD