Zeile und Spalte per Klick einfärben
05.10.2021 20:38:21
Robert
Habe mal wieder ein Problem bei dem Ihr mir eventuell helfen könntet. Ich habe im Internet folgenden Code gefunden mit dem ich die Spalte und Zeile einer aktiven Zeile farblich markieren kann.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
Application.ScreenUpdating = False
' Clear the color of all the cells
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
Hoffe Ihr könnt mir helfen.
Danke im voraus.
LG Robert