Wenn >25 dann rot
30.08.2023 09:01:57
Herrmann
ich verwende den unteren Post, um Zellen in der Spalte N rot zu markieren, die mehr als 25 Zeichen enthalten.
Funktioniert super, jedoch wenn ich in der Zelle Änderungen vornehmen und unter 25 Zeichen komme, bleibt die Zelle dennoch rot. Die Zelle sollte dann die Markierung einfach "verlieren".
Kann mir hier jemand weiterhelfen bitte?
Sub FormatCells()
Dim ws As Worksheet
Dim lastRow As Long
Dim cell As Range
Set ws = ThisWorkbook.Sheets("Schraubenbezeichnung")
lastRow = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row
For Each cell In ws.Range("N2:N" & lastRow)
If Len(cell.Value) > 25 Then
cell.Interior.Color = RGB(255, 192, 203)
Else
cell.Interior.ColorIndex = xlNone
End If
Next cell
End Sub
Danke im Voraus für eure Bemühungen!
GRUß