Tekst plaatsen in cel

[alsoft]

Wie kan mij helpen a.u.b.

Als ik in een cel b.v. A1 een waarde 0 of 6 invoer, wil ik in cel B5 de tekst <Controle> laten verschijnen als het getal 0 of 6 ingevuld word,en tevens deze cel rood vullen.
Wat voor formule moet ik hiervoor invullen.

 

[Haije]

met voorwaardelijke opmaak?

Hallo alsoft,

volgens mij doe je mbv voorwaardelijke opmaak; hieronder een voorbeeldje, wwarbij de cel rood gekleurd wordt en de tekst vel gemaakt:

    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="0"
    With Selection.FormatConditions(1).Font
        .Bold = True
        .Italic = False
    End With
    Selection.FormatConditions(1).Interior.ColorIndex = 3

 

[alsoft]

Tekst plaatsen

Kan je misschien aangeven waar deze tekst geschreven moet worden.

B.v.d.

 

[Haije]

in een module

Alsoft,

omdat ik je vraag in de rubriek Visual basic for Applications (VBA) zag staan ging ik er van uit dat je wel zou weten dat deze code in een VBA-module geplaatst dient te worden.

De code die ik in de vorige post als voorbeeld gaf is ontstaan door een macro op te nemen.
Dat doe je door te kiezen voor:
Menu Extra > Macro > Nieuwe macro opnemen.

 

[alsoft]

Oke

Bedankt het werkt