hoffe jemand kann mir weiterhelfen. Und zwar habe ich einen Code, um aktive Zeilen farbig zu markieren. Beim Schließen der Datei werden die Farben zurückgesetzt.
Nun möchte ich aber, dass egal welche Zelle ich in einer Zeile auswähle, die Markierung in der jeweiligen Zeile nur bis zur Spalte E gemacht wird, statt der ganzen Zeile. Ist das möglich?
Hier der Code zum Markieren:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static LastRow As Long
If LastRow = 0 Then LastRow = 1
' Letzte Markierung entfärben
Rows(LastRow).Interior.ColorIndex = xlNone
' Markierung einfärben
With Target.EntireRow
.Interior.ColorIndex = 6
LastRow = .Row
End With
End Sub
und hier zum Entfernen der Markierung vor dem Schließen der Datei:Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
' Markierung vor dem Schließen entfärben
sh.Cells.Interior.ColorIndex = xlNone
Next
End Sub