En geslecteerde cel of cel-rand kleuren.

[HMDH]

Beste Forum,

kan er met behulp van een VBA code worden gerealiseerd worden dat een cel welke actief is wordt gekleurd om i.d.

Dus als de cel niet met de cursor is aangeklikt mag er niets gebeuren.
Wordt de cel aangeklikt dan wel.
Gaat de cursor weer weg van de cel dan geen kleur o.i.d.
Dit onafhankelijk van de celinhoud.

Ben benieuwt of dit mogelijk is.

Groet, HarryM.

 

[edmoor]

Zo?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Static prevcel As Range
    If Not prevcel Is Nothing Then prevcel.Interior.Color = xlNone
    Target.Interior.Color = 15189684
    Set prevcel = Target
End Sub

Uiteraard heb ik een willekeurige kleur gekozen.

NB:
Het forum heeft geen automatische d, t, en dt correctie

 

[HMDH]

Bedankt voor beide lessen ("benieuwt" zal je op doelen).
Zal het nooit meer doen.

Even terug op de inhoud;
In het bewuste Blad staat al een Private Sub.
N.l. degene welke jij heb gemaakt.
Hoe zet ik deze er dan bij?
En.... de kleur actie is alleen voor cel D15 bedoeld.
Kan dat ook?
De kleur zou ik graag groen (niet te fel) hebben.
Kan ik ergens Excel kleurcodes vinden?

 

[edmoor]

Dit is Worksheet_SelectionChange.
Die andere zal Worksheet_Change zijn.
Dat zijn twee verschillende events.

Om de kleurcode op te zoeken geef je een cel een kleur en vervolgens tik je in het Direct venster van de VBA editor dit in:

?Activecell.Interior.Color

Druk op de Enter toets en je ziet de code voor die kleur.
Dat gaat om heel veel kleuren.

Je kan in plaats van .Color ook .ColorIndex gebruiken.
Dan kan je kiezen uit een palette van 56 kleuren:

 

[HMDH]

Dit is Worksheet_SelectionChange.
Die andere zal Worksheet_Change zijn.
Dat zijn twee verschillende events.

Om de kleurcode op te zoeken geef je een cel een kleur en vervolgens tik je in het Direct venster van de VBA editor dit in:

?Activecell.Interior.Color

Druk op de Enter toets en je ziet de code voor die kleur.
Dat gaat om heel veel kleuren.
Je kan in plaats van .Color ook .ColorIndeze gebruiken.
Dan kan je kiezen uit een palette van 56 kleuren:
Bekijk bijlage 359186

En.... de kleur actie is alleen voor cel D15 bedoeld.
Kan dat ook in een code gezet worden?
Graag dan deze code.
Dit is hopelijk voorlopig mijn laatste aanpassing op mijn document.

 

[edmoor]

Nou heb je toch weer de quote knop gebruikt.
Gebruik de veel grotere +Reageer op bericht knop als je direct op het vorige bericht reageert.

Ik zal er morgen naar kijken.

 

[HMDH]

Als het een beetje meezit en ik word nog even geholpen met mijn laatste vraag, ben ik wellicht een tijdje offline denk.
Het is natuurlijk heel vervelend al die vragen van leken, Toch?
Ook weten ze niet hoe ze op een forum moeten handelen.
Ik zou me haast gaan schamen met zulke expert als jij.

 

[edmoor]

Nergens voor nodig.
Iedereen moet wel wat leren en een forum als Helpmij kan daar op computergebied prima bij helpen
Daarnaast ben ik ook niet echt een expert, alleen wat verder in het leerproces

 

[edmoor]

Als het alleen om cel B15 gaat is dit voldoende:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("B15").Interior.Color = IIf(Target.Address(0, 0) = "B15", 9359529, xlNone)
End Sub

 

[HMDH]

Bedankt.

waar plaats ik nu deze code?
Ik heb 2 schermopnames bijgevoegd.

De cel D15 bevind zich op tabblad "Wedstrijdbonnen".


P.s. het is trouwens cel D15.

 

[edmoor]

Het is een nieuwe sub achter hetzelfde werkblad.

 

[HMDH]

Gedaan, maar helaas.
Zie schermopnames.

 

[edmoor]

Toch is die code goed en is er dus iets anders aan de hand in de combinatie er mee.
Als je dat document plaatst wil ik er wel even naar kijken.