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

 

[HSV]

Het overbodige verwijderd.

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim rng As Range
Set rng = Sh.UsedRange
 rng.Interior.ColorIndex = xlNone
   If Not Intersect(Target, rng) Is Nothing Then
        Intersect(rng, Target.EntireRow).Interior.ColorIndex = 8
        Intersect(rng, Target.EntireColumn).Interior.ColorIndex = 6
        Target.Interior.ColorIndex = xlNone
   End If
End Sub

 

[dabber09]

hallo HSV waar vul ik in bovenstaande dan de range is bv voor regel a1 tot a20 en voor kolom a1t/mz1
Want in de bovenstaande staat Target.EntireRow en denk ik dan de hele rij en dat zou ik niet willen.

 

[HSV]

De code plaats je in ThisworkBook module.
Er staat ook 'Intersect' voor, test het maar eens.

 

[dabber09]

hallo HSV het werkt dankjewel.
wat zorgt er nu voor dat alleen de gevulde cellen gemarkeerd worden ?

 

[HSV]

Sh.UsedRange

Let wel dat dit in elk werkblad van toepassing is.
Wil je dat niet, dan de code niet in ThisWorkbook maar in de SelectionChange procedure van het werkblad.

 

[dabber09]

Ja dankjewel dat wist ik maar toch bedankt voor de info.
File's worden nu weer een stuk overzichtelijker