52 Aufrufe
Gefragt in Tabellenkalkulation von wolfs Einsteiger (3 Punkte)
Bearbeitet von halfstone
Eine eventuelle bestehende Farbe muss nach Verlassen der Zeile wiederhergestellt werden. Farben in anderen Zeilen dürfen nicht geändert werden.

2 Antworten

0 Punkte
Beantwortet von jofed Einsteiger (9 Punkte)
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
0 Punkte
Beantwortet von m-o Profi (13.4k Punkte)

Hallo,

Beispielcode

Beispieldatei

Gruß

M.O.

...