ich habe eine Tabelle im Bereich A1: CO377.
Wenn ich z.B. die Zelle J208 anklicke, soll sich die Zeile 208 und die Spalte J einfärben.
Ich hoffe es gibt einen recht einfachen Weg.
Danke schonmal.
Jürgen
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRng
Set myRng = Range("A1:CO307")
If Not Intersect(Target, myRng) Is Nothing Then
myRng.Interior.ColorIndex = xlNone
Columns(ActiveCell.Column).Interior.ColorIndex = 6
Rows(ActiveCell.Row).Interior.ColorIndex = 6
End If
End Sub