Aktive Zeile/Spalte farblich hervorheben
28.06.2021 11:54:45
Christoph_K
für einen etwas größeren Terminplan würde ich gerne die aktive Zeile und Spalte der aktiven Zelle farblich hervorheben, da "Fenster fixieren" gerade für die Zeilen trotzdem schwierig ist und man Abhängigkeiten so besser erkennen kann (ohne direkt MS Project zu verwenden ;-) )
Code funktioniert so weit so gut:
Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Static xRow
Static xColumn
If xColumn "" Then
With Columns(xColumn).Interior
.ColorIndex = xlNone
End With
With Rows(xRow).Interior
.ColorIndex = xlNone
End With
End If
pRow = Selection.Row
pColumn = Selection.Column
xRow = pRow
xColumn = pColumn
With Columns(pColumn).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
With Rows(pRow).Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
End Sub
Die Zellfarbe sollte also idealerweise vorher "zwischengespeichert" werden.
Vielleicht hat ja jemand eine(n) Lösung(sansatz).
Besten Dank.
CK