Präzesierung VBA Code
07.10.2021 14:40:39
Robert
Ich habe hier einen von Boris präzisierten VBA Code. Er funktioniert auch gut. Ich will wenn ich in Arbeitsblättern Änderungen durchführe die jeweils aktuelle Zeile und Spalte anders farbig markieren, zur besseren Orientierung. Das funktioniert mit dem Code wunderbar. Gibt es eine Möglichkeit den Code zu ergänzen, das wenn ich fertig bin und das Arbeitsblatt wieder verlasse, die farbliche Markierung wieder zu entfernen. Ich habe keine Idee. Hoffe Ihr könnt mir helfen.
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
Sh.Cells.Interior.ColorIndex = 0
With Target
' Highlight the entire row and column that contain the active cell
.EntireRow.Interior.ColorIndex = 8
.EntireColumn.Interior.ColorIndex = 8
End With
Application.ScreenUpdating = True
End Sub
LG Robert
Anzeige