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

kleur omzetten naar getal

Status
Niet open voor verdere reacties.

westra77

Gebruiker
Lid geworden
2 mrt 2007
Berichten
149
hallo
ik heb een bestand waarin in cel a1 de keuze kan worden gemaakt of deze oranje is gekleurd of niet. Indien cel a1 oranje is, moet in cel a2 ja komen te staan.
graag wil ik dit zonder vba maar dmv van formules.
Om van een getal, via voorwaardelijke opmaak, kleur te maken lukt me wel, maar andersom lukt me niet.
wie kan mij helpen
 
Je kan toch diezelfde voorwaarde gebruiken in je tweede cel.

Cobbe
 
Van een "Senior member" had ik wel een voorbeeld bestandje verwacht.

Ik ben het met Cobbe eens dat je hiervoor de zelfde voorwaarden voor kunt gebruiken als bij de kleuring van de cel, voor het geval dat er handmatig ingekleurd wordt heb ik wel een voorbeeld bestand bijgevoegd. Let op de bereiknaam, werkt alleen met deze kleur, anders moet je cde ALS formule aanpassen.

Succes,
 

Bijlagen

ik zal proberen uit leggen wat er aan de hand is.
vanuit een ander excel bestand, wordt cel a1 geplakt, deze is altijd oranje of bevat geen opmaak.
Indien de cel a1 geplakt wordt en deze oranje is, dan dient deze kleur te worden vervangen door een ja, in alle overige gevallen kan de cel leeg blijven.
dit is afwijkend aan mijn eerder genoemde vraag, excuus hiervoor, dit komt omdat ik het bestand voor een ander maak.
alvast bedankt
 
Als ik begrijp wat je bedoeld zou je bij VBA terecht komen, hier kan ik je niet bij helpen maar er "lopen" hier genoeg VBA specialisten rond.

Toch blijf ik erbij dat, en zeker van een Senior member, er een voorbeeld bestand bij had gemoeten, als wat het maar voor de kleurcodes etc.etc.etc.

Succes,
 
Zet dit achter je werkblad:

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
[A1] = ""
If [A1].Interior.ColorIndex <> xlNone Then
[A1] = "ja"
[A1].Interior.ColorIndex = xlNone
End If
End Sub

Cobbe
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan