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
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