Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim z As Long
Dim s As Long
UsedRange.Cells.Interior.ColorIndex = xlNone
z = ActiveCell.Row
s = ActiveCell.Column
Range(Cells(z, 1), Cells(z, s)).Interior.ColorIndex = 35
Range(Cells(1, s), Cells(z, s)).Interior.ColorIndex = 35
ActiveCell.Interior.ColorIndex = 36
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static AlteZelle As Range
If ActiveCell.Row = 1 Then Exit Sub 'eine farbig markierte Überschriftenzeile bleibt verschont
If Not AlteZelle Is Nothing Then
AlteZelle.EntireRow.Interior.ColorIndex = xlColorIndexNone ' die vorherige Zelle wird entfärbt
End If
Target.EntireRow.Interior.ColorIndex = 6 'die aktive Zeile wird gelb
Set AlteZelle = Target
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen