Automatisch markeren van actieve rij en kolom in

[dabber09]

hoe kan een range aangeven zodat niet de hele rij en de gehele kolom wordt gegemarkeerd maar alleen maar de grote van de tabel.

Verder heb ik ook een file gemaakt met voorwaardelijk opmaak waar ik wel de gemaarkeerde rijen en kolommen krijg te zien maar wil dan dat de cel op de kruising geen kleur meer krijgt.

 

[AHulpje]

Zo:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Dim rng As Range
    Dim rowRng As Range
    Dim colRng As Range

    Cells.Interior.ColorIndex = xlNone
    If Not Intersect(Target, Sh.UsedRange()) Is Nothing Then
        Set rowRng = Intersect(rng, Target.EntireRow)
        Set colRng = Intersect(rng, Target.EntireColumn)
        If Not rowRng Is Nothing Then rowRng.Interior.ColorIndex = 8
        If Not colRng Is Nothing Then colRng.Interior.ColorIndex = 6
        Target.Interior.ColorIndex = xlNone
    End If
End Sub

 

[Mde]

voor de witte cel op de kruising heb je tegenwoordig de focuscel mogelijkheid in het lint.
Onder beeld => focuscel

 

[HSV]

Wat is het bereik van rng?

 

[AHulpje]

@HSV
Geen, maar dat wist je al.

 

[HSV]

Dan zal je code niet werken toch?

 

[AHulpje]

Dat klopt, er is een regel weggevallen:

Set rng = Target.CurrentRegion

 

[HSV]

Of:
set rng = sh.usedrange