Wie kann die aktive Zeile farbig markiert werden?

Question

Eine eventuelle bestehende Farbe muss nach Verlassen der Zeile wiederhergestellt werden. Farben in anderen Zeilen dürfen nicht geändert werden.

Answer 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static OldIndex As Long
Static OldCell As Range
On Error Resume Next
OldCell.Interior.ColorIndex = OldIndex
If Not OldCell Is Nothing Then
OldIndex = Rows(Target.Row).Interior.ColorIndex
End If
Rows(Target.Row).Interior.ColorIndex = 6
Set OldCell = Rows(Target.Row)
End Sub

Answer 2

Hallo,

Beispielcode

Beispieldatei

Gruß

M.O.