zwart wit tekst in één cel

[Friend]

Beste forummers,

Ik ben benieuwd of het volgende mogelijk is.

In een kolom heb ik een opsomming van onderwerpen/werkzaamheden met dezelfde omschrijving en een cijfer toevoeging.

zie bijlage

Nu zou ik graag in de cel alleen het woord zichtbaar willen houden door zwarte tekst maar het cijfer(s) witte tekst willen geven zodat deze niet zichtbaar is.

Is dit mogelijk?

Waarschijnlijk voorwaardelijk opmaak alleen ik zou niet weten hoe ik die code kan maken.

Splitsen in 2 kolommen is geen optie.

Friend

Bekijk bijlage zwartwit.xlsx

 

[edmoor]

Daar is wel een mogelijkheid voor, maar dan zie je in die witte cellen de cijfers uiteraard niet meer. Is dat de bedoeling?

 

[Friend]

Edmoor, hartelijk dank voor je reactie :thumb:

Dat is inderdaad de bedoeling dat ze niet zichtbaar zijn!

Friend

 

[Cobbe]

Is dit te simpel gedacht?

 

[edmoor]

Dat kan bijvoorbeeld met dit achter een knop:

Sub CijfersKleuren()
    Dim Waarde As String
    Dim Cel As Object
    Dim i As Long
    Dim t As Integer
    
    With ActiveSheet
        For i = 1 To .Cells(.Rows.Count, "B").End(xlUp).Row
            Set Cel = .Cells(i, 2)
            Waarde = Cel.Value
            For t = 1 To Len(Waarde)
                If IsNumeric(Mid(Waarde, t, 1)) = True Then
                    Cel.Characters(t, 1).Font.Color = Cel.Interior.Color
                End If
            Next
        Next
    End With
End Sub

 

[Friend]

Edmoor,

Schitterend, super :thumb::thumb:

Bedankt voor de keuze mogelijkheid.

Misschien nog één aanvullende vraag, geboren door jouw 2e oplossing.

Om de cijfers met een knop weer zwart te krijgen, wat moet ik dan hierin veranderen?

Cel.Interior.Color

Friend

 

[edmoor]

vbBlack

 

[Friend]

Cobbe,

Hartelijk dank ook voor jouw reactie:thumb:

Bedankt voor jouw "simpele" oplossing.

Ik moest diep nadenken hoe je dit voor elkaar had gekregen.

Nooit geweten dat je zo simpel binnen 1 cel verschillende kleuren voor gedeelten van de tekst kan kiezen.

Ook jij bijzonder bedankt voor deze basisles :d

Friend

 

[Friend]

Edmoor,

Hartelijk dank :thumb:

We gaan ermee aan de slag

Friend