Danke im vorraus!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.ColorIndex = 16
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 3 Then
If Target = "" Then
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.ColorIndex = xlColorIndexNone
Else
Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Interior.ColorIndex = 16
End If
End Sub