• 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.

Met vba celkleur aanpassen -> aanwijzen kleur vanaf tabblad

Status
Niet open voor verdere reacties.

LennartRoest

Gebruiker
Lid geworden
3 okt 2016
Berichten
58
Hoi,

Eerder heb ik op dit forum dit stukje code opgepikt om automatisch cellen te kleuren als je er op klikt. Dat vond ik erg mooi en heb daar een vervolgvraag voor. Het stukje code:

Code:
Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Intersect(Target, Range("A2:F441")) Is Nothing Or Cells(Target.Row, 1) = "" Then Exit Sub
  Range("A2:F441").Interior.ColorIndex = xlNone
   Cells(Target.Row, 1).Resize(, 6).Interior.ColorIndex = 6
End Sub

Bij de InteriorColorIndex geef je de kleur op, dat doe ik nu steeds in de VBA maar vraag me af of ik in het tabblad zelf in een bepaalde cel het getal 6 (of iets anders) voor de ColorIndex kan opgeven, bijv in cel H5.

Kan dit?

Alvast bedankt!
 
zo?

Code:
Cells(Target.Row, 1).Resize(, 6).Interior.ColorIndex = [H5]

of
Code:
Interior.ColorIndex = [H5].Interior.ColorIndex
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan