Markeer binnen bereik/CurrentRegion met VBA

[Senso]

Wat is het bereik zoals het in de code staat?
Stel ik wil een bereik van A1 tm Z500, hoe wordt dan de regel in VBA?


Highlighting the Row and Column that Contain the Active Cell, Within the Current Region

The following code example clears the color in all the cells on the worksheet by setting the ColorIndex property equal to 0, and then highlights the row and column that contain the active cell, within the current region by using the CurrentRegion property of the Range object.
VB

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0
    If IsEmpty(Target) Or Target.Cells.Count > 1 Then Exit Sub
    Application.ScreenUpdating = False
    With ActiveCell
        ' Highlight the row and column that contain the active cell, within the current region
        Range(Cells(.Row, .CurrentRegion.Column), Cells(.Row, .CurrentRegion.Columns.Count + .CurrentRegion.Column - 1)).Interior.ColorIndex = 8
        Range(Cells(.CurrentRegion.Row, .Column), Cells(.CurrentRegion.Rows.Count + .CurrentRegion.Row - 1, .Column)).Interior.ColorIndex = 8
    End With
    Application.ScreenUpdating = True
End Sub

 

[JEC.]

Met één regeltje vba en een simpele voorwaardelijke opmaak ben je er

In de opmaak, voor bereik A1:Z500

=OR(COLUMN()=CELL("col");CELL("row")=ROW())

Achter je werkblad

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.ScreenUpdating = True
End Sub

 

[Senso]

Ja, gelukt. Heel mooi. Bedankt.:thumb:

 

[Senso]

Toch vreemd dat alle overige opmaak (opvulkleuren) in het document worden gewist. Is dat normaal? Want dan ben je alle balken en markeringen kwijt.

' Clear the color of all the cells
    Cells.Interior.ColorIndex = 0

Moet die weg?

Dat geprobeerd maar dan blijven de kolom en rijkleuren (actieve rij en kolom) overal staan. Dus dat is niet goed.

 

[JEC.]

Als je die code gebruikt wordt de kleur verwijderd, precies hoe het zou moeten werken. Ik weet ook niet waarom je dat gebruikt

 

[Senso]

Het is gelukt met jouw de code en VO uit jouw post. Ik had nog een andere van internet als code en die verwijdert de kleur van de balken en jouw code niet. Sorry. Op het oog leek de eerste gebruikte code goed en in een testdocument zie je dat niet direct (daar stonden geen gekleurde balken/cellen).