Aktive Zeile einfärben
27.11.2017 11:07:43
Boernie
ich habe mir einen Code zusammengebastelt. Hier wird die aktive Zeile eingefärbt. Leider hat der Code noch zwei Fehler:
- beim ersten Wechsel beim Start bleibt die vorher markierte Zeile farbig. Diese sollte aber wieder entfärbt werden.
- Die Zellen in der Überschrift sind schon vorher farbig. Wenn die Cursor in diese Zeile rutscht werden diese entfärbt. Schön wäre, wenn diese ihre Farbe behalten.
Kann mir hier jemand helfen?
Mein Code:
Option Explicit
Dim rngVorher As Range
Dim colVorher As Integer
Private Sub Worksheet_Deactivate()
If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher
Set rngVorher = Nothing
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static AlteZeile As Integer
If Not rngVorher Is Nothing Then rngVorher.Interior.ColorIndex = colVorher
If AlteZeile 0 Then
Range(Cells(AlteZeile, 1), Cells(AlteZeile, 29)).Interior.ColorIndex = xlColorIndexNone
Range(Cells(Target.Row, 1), Cells(Target.Row, 29)).Interior.ColorIndex = 22
End If
Set rngVorher = Target
colVorher = Target.Interior.ColorIndex
Target.Interior.ColorIndex = 6 'Hintergrund Gelb
AlteZeile = Target.Row
End Sub
Boernie