Vul- en tekstkleur

[wmr]

Hallo allemaal,

Ik heb een macrootje gemaakt om de vul- en tekstkleur hetzelfde te maken.

Als ik het handmatig doe dan gaat het goed.

Als ik de macro run, dan blijft ik de tekst zien.

Wie heeft een idee waaraan dit ligt?

groet
Willem

 

[Cobbe]

Probeer deze eens:

Sub Macro1()
With Selection
   .Interior.ColorIndex = xlNone
   .Font.ColorIndex = 0
End With
For Each cl In Selection
 If cl > 0 Then
   With cl
     .Interior.ColorIndex = 15
     .Font.ColorIndex = 15
   End With
 End If
Next
End Sub

 

[edmoor]

Of zo:

With Selection
    .Interior.Color = 14336204
    .Font.Color = .Interior.Color
End With

 

[wmr]

Bedankt allebei,

De oplossing van Cobbe werkte, maar de kleur was net een tintje anders.

Die van Edmoor was precies de juiste kleur.

groet
Willem