Gesamte Zeile der activen Zelle farbig markieren.
12.03.2019 17:53:11
David@rittgardt.de
mit diesem Code färbe ich die ganze Zeile einer aktiven Zelle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
Cells.Interior.ColorIndex = 0
With Target
.EntireRow.Interior.Color = vbCyan
End With
Application.ScreenUpdating = True
End Sub
Hierdurch ändert sich allerdings kontinuierlich die aktuelle farbliche formatierung der Zellen.Ich hatte schon einmal einen Code, der die ursprüngliche formatierung wiederherstellt.
Kann mir da jemand auf die Sprünge helfen?
Vielen Dank.
David