für das übersichtliche navigieren in excel nutze ich folgenden Code:
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
Allerdings ist die Markierung nicht zu erkennen, wenn ich bedingte Formatierungen nutze.
Gleichzeitig werden eingefärbte Zellen, welche nicht über bedingte Formatierung laufen wieder zurückgesetzt, wenn man in der Spalte oder Zeile war.
Wie kann der Code entsprechend angepasst werden?
Gruß Hannes