• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Kan ik een cel voorzien van een kleur nadat deze geselecteerd is.

Status
Niet open voor verdere reacties.
L

lacabrlis

Gebruiker
Lid geworden
6 nov 2011
Berichten
19
Hallo, ik heb een korte vraag en hoop dat de mogelijkheid bestaat.

Ik wil graag in excel nadat ik een cel geselecteerd heb dat deze gevuld wordt met een kleur. Het is niet de bedoeling om in deze cel data te plaatsen maar puur selecteren door een muisklik.

ik werk namelijk in een bestand waarin kolom A t/m K gevuld is met data, op het moment dat ik dan b.v. cel L1 zou selecteren zonder data in te voeren moet deze al gevuld worden met een kleur.

Is dit mogelijk?

Alvast bedankt voor het meedenken.

Mvr.gr Bennie
 
Achter het werkblad:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ActiveCell.Interior.Color = 255
End Sub
 
Edmoor bedankt voor je hele snelle reactie ziet er top uit.

Echter nog een vraagje, nu wordt elke cel die ik eventueel selecteer gevuld met een kleur, kan dit ook beperkt worden tot alleen de cellen uit kolom L?
Cellen uit kolom A t/m K gebruik ik namelijk om data in te zetten, nu verkleuren deze ook als ik er data in wil zetten.
 
Dat kan:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 12 Then
        ActiveCell.Interior.Color = 255
    End If
End Sub
 
Hallo,
ik wil nog 1 keer lastig zijn, het werkt zo mooi dat ik eigenlijk nog wil uitbreiden.
Zou graag hetzelfde willen doen in kolom 13, ben al even aan het stoeien geweest maar lukt mij niet :confused:

Dus zowel in kolom 12 als 13 wil ik graag zodra ik een cel selecteer dat de cel gevuld wordt met een kleur.
 
Probeer deze eens:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 12 [COLOR="#FF0000"]OR Target.Column = 13[/COLOR] Then
        ActiveCell.Interior.Color = 255
    End If
End Sub
 
Wat Haije zegt inderdaad.
Maar eigenlijk vind ik dat je dat wel had moeten kunnen afleiden aan het voorbeeld in #4.
 
Hallo,

Beiden vriendelijk bedankt, ik had het zelf ook al geprobeerd met "OR" ( leek mij ook logisch ) echter had ik het volgende er neergezet "If Target.Column = 12 OR 13".
Als je het zo weer ziet dan denk ik inderdaad had ik ook zelf moeten bedenken.

Ik ben nog lerende :rolleyes:
 
Begrijp ik, vandaar even de subtiele hint ;)
Kijk om het nog flexibeler te maken eens naar dit voorbeeldje:
Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Select Case Target.Column
        Case 12, 13
            ActiveCell.Interior.Color = 255
        Case 10, 11
            ActiveCell.Interior.Color = 100
    End Select
End Sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan