57 Aufrufe
Gefragt in Tabellenkalkulation von wolfs Einsteiger_in (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_in (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 (15.2k Punkte)

Hallo,

Beispielcode

Beispieldatei

Gruß

M.O.

...