Zeilen A:C Grün Färben Wenn
25.11.2021 18:58:11
Oraculix
In meiner Tabelle klicke ich auf eine beliebige Zeile in Range A:C und die Zeile Wird Rot Markiert.
In der Spalte D Habe ich Favoriten diese sollten aber Grün markiert werden wenn in Spalte D etwas Drinnen
ist.
Also Zelle in Spalte A:C immer rot außer wenn in Spalte D ein Favorit ist dann Grün geht das überhaupt?
https://www.herber.de/bbs/user/149402.xlsm
'Färbt markierte Zelle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim lzeile As Integer
On Error GoTo Fehler
lzeile = Target.Row 'Zeile wählen, welche geklickt wurde
Cells.FormatConditions.Delete
Range(Cells(lzeile, 1), Cells(lzeile, 3)).FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="="
Range(Cells(lzeile, 1), Cells(lzeile, 3)).FormatConditions(1).Interior.Color = 255
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Oraculix