Opmaken van geselecteerde cel

[stoks3]

Zou iemand mij kunnen helpen met een probleem?
Ik zou graag willen dat als ik in excel een cel of meerdere cellen selecteer, dat deze dan
een andere opmaak krijgen. Zodat het duidelijk is welke cel ik geselecteerd heb met mijn
cursor. Als het mogelijk is, dan graag zonder macro's, hierin ben ik namelijk niet bekend.


Mvg Harm

 

[Ad Becude]

Harm,
Dat zal niet gaan zonder VBA.
Dit heb ik gevonden met de zoekfunctie:

Klik rechts op het bladtabje waar je de code wilt gebruiken, en kies voor Programmacode Weergeven, en plak onderstaande code in het grote vak.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Sheets(1).UsedRange.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 3
End Sub

Code is afkomstig van ons Warme bakkertje Rudi

 

[stoks3]

Dit werkt, bedankt daarvoor !

Nu doen zich de volgende problemen voor:
-Als ik een andere cel selecteer blijft de vorige cel ook gekleurd, kan dit opgelost worden?
-Daarnaast, als ik een cel selecteer met een voorwaardelijke opmaak, kleurt deze niet.
Zou iemand mij kunnen helpen met het aanpassen van de code dat dit wel werkt,
ik ben namelijk helemaal niet thuis in deze programmeertaal.

Ik ben erachter dat bij nieuw bestand, het (de geselecteerde cel kleuren, en bij een
volgende selectie de vorige cel weer wit kleuren) alleen werkt bij blad1 en niet bij blad 2 en 3.
Is hier een verklaring voor? De bladen zijn voor mijn weten identiek.

Bij voorbaat dank.
Mvg Harm

Voorbeeld:
(Zip File, omdat ik een xlsm file niet kan uploaden).
(macro's inschakelen?)

 

[Wigi]

Ik ben erachter dat bij nieuw bestand, het (de geselecteerde cel kleuren, en bij een volgende selectie de vorige cel weer wit kleuren) alleen werkt bij blad1 en niet bij blad 2 en 3. Is hier een verklaring voor? De bladen zijn voor mijn weten identiek.

Harm

Je zou toch moeten inzien dat die code enkel geplakt werd achter Blad1, en niet achter Blad2 en Blad3...

 

[Warme bakkertje]

Verwijder de macro's achter alle werkbladen en plaats onderstaaande in ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 3
End Sub

 

[Revdutchie]

Verwijder de macro's achter alle werkbladen en plaats onderstaaande in ThisWorkbook

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
    Target.Interior.ColorIndex = 3
End Sub

Cool, opgeslagen in me macroboekje maar nu wil ik natuurlijk weer meer.
Kan dat ook in een Range ? dus bv Rij 1 geel en rij 2 rood ?

 

[Warme bakkertje]

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveSheet.UsedRange.Interior.ColorIndex = xlNone
    With Target
        .Resize(, 5).Interior.ColorIndex = 3
        .Offset(1).Resize(, 5).Interior.ColorIndex = 6
    End With
End Sub