Naast celkleur de tekst kleur aanpassen

Status
Niet open voor verdere reacties.
N

NPersijn

Gebruiker
Lid geworden
27 jul 2018
Berichten
56
Hallo,

Ik heb de volgende vraag.

De volgende macro geeft een verandering in celkleur.
Hoe kan ik de tekstkleur aanpassen naar bijvoorbeeld wit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C9:BD42")) Is Nothing Then
Target.Interior.Color = IIf(Sheets("data").Columns(1).Find(Target).Offset(, 2).Value = "TT", vbBlue, xlNone)
End If
End Sub

Vast bedankt
 
Laatst bewerkt:
Gebruik dan Target.Font.Color met vbWhite als kleur.
 
Laatst bewerkt:
De code waar je het in #1 over hebt zit niet in dat document.
 
Nu doet die bijlage het niet ;)
 
Gebruik deze eens:
Code: 
Target.Font.Color = IIf(Sheets("data").Columns(1).Find(Target).Offset(, 2).Value = "TT", vbWhite, vbBlack)
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan