Celkleur aanvullen met Letter

[cbroovers]

Hallo,

Ik heb een vakantieplanning en ik wil de gekleurde cel vervangen door de letter V. Hoe doe ik dat simpel en snel?
Ik heb een 50-tal planningen met allemaal verschillende kleuren...

Thnx!

 

[edmoor]

Je wilt de kleuren geel, blauw, lichtgroen en donkergroen weg hebben en in die cellen de letter V zetten?

Sub LetterV()
    For Each cl In ActiveSheet.UsedRange '.Address
        Select Case cl.Interior.Color
            Case 65535, 15773696, 5287936, 5296274
                cl.Interior.Color = xlNone: cl.Value = "V"
        End Select
    Next cl
End Sub

 

[cbroovers]

edmoor,

de kleur mag blijven, dat maakt mij niet uit. De blauwe cellen of in een andere excel een andere kleur, zouden ook de letter V moeten krijgen.

Ik heb het met vervangen geprobeerd, maar dat lukte helaas niet

Indien mogelijk een oplossing zonder macro! En anders de code van de macro in de oplossing kopiëren. Ik kan namelijk wel zelf een macro maken, maar ik kan geen macro's van externe bestanden inschakelen.

Ik heb Excel versie 2010

 

[edmoor]

Zonder VBA gaat dat niet. Met dit blijven de kleuren bewaard en wordt er alleen een letter V in de cel gezet.

Sub LetterV()
    For Each cl In ActiveSheet.UsedRange
        Select Case cl.Interior.Color
            Case 65535, 15773696, 5287936, 5296274: cl.Value = "V"
        End Select
    Next cl
End Sub

Die code kan je gewoon kopiëren plakken.
Heeft niks met externe bestanden te maken.