1e woord v/e cel blauw gekleurd en onderstreept

[spQQkrijder]

Wie kan mij hiermee helpen? Het gaat om het volgende:

Ik heb een grote hoeveelheid cellen waarbij ik het eerste gedeelte van een cel blauw en onderstreept wil hebben.
Zo'n cel bevat meerdere woorden, maar het gaat om het eerste gedeelte.

bv.
Slager - 1 kilo hamlappen, 1 pond biefstuk
Bakker - 2 croissants, 2 witte broden, 3 krentenbollen
Slijterij en drogisterij - 1 whiskey, 1 paracetamol

Zie excel sheet.

Bvd,

Den

 

[Roncancio]

Sub Kleuren()
Dim sBer As String
Dim rCel As Range
Dim iStp As Integer

    sBer = Range("A2").End(xlDown).Address
    For Each rCel In Range("A2:" & sBer)
        iStp = InStr(1, rCel, "-") - 2
        With rCel.Characters(1, iStp).Font
            .Color = vbBlue
            .Underline = True
        End With
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[spQQkrijder]

Waar kan ik dit invullen? Is dit VBA? Ik heb excel op een mac geïnstalleerd zonder VBA.

Gr.

 

[spQQkrijder]

Woouwie...het werkt. Dank je wel! Petje af.

Gr.

Den

 

[Roncancio]

Het is inderdaad VBA.
Ik heb de code aan het bestand toegevoegd.

Met vriendelijke groet,


Roncancio