Vælg 1 af følgende 3 muligheder :
------------------------------------------------------------------------------------
Highligt rows med Betinget format i et afgranset område
------------------------------------------------------------------------------------
A. Indsæt følgende kode i aktuel ark's kodemodul
--------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveWorkbook.Names("spot").Value = Target.Row
End Sub
--------------
B. Opret/Definer et navn : fx. spot
I feltet Refererer til skriver du : =1
C. Marker det område i arket som skal være omfattet af markering
Vælg Formater/Betinget format
Vælg "Formlen er" og skriv =RÆKKE()=spot
Vælg en fyld-farve
Ved ikke hvor stabil løsningen er, test selv.
----------------------------------------------------------------------------
Highligt rows med alm fyld-farve (evt. bestående slettes)
----------------------------------------------------------------------------
Dim adr As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Interior.ColorIndex = xlNone
Rows(Target.Row).Interior.ColorIndex = 35
adr = Target.Row
End Sub
---------------------------------------------------------------------------------
Highligt rows med streg i toppen af celle (evt. bestående slettes)
---------------------------------------------------------------------------------
Dim adr As String
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If adr <> "" Then Rows(adr).Borders(xlEdgeTop).LineStyle = xlNone
With Rows(Target.Row).Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3 'xlAutomatic
End With
adr = Target.Row
End Sub