Kleur veranderen van vet en onderstreepte woorden

[spQQkrijder]

Hallo,

Ik zoek een vba code die zoekt in kolom A naar alle woorden die VETenONDERSTREEPT zijn,
en deze te veranderen in de kleur rood. Dus niet naar woorden die of vet of onderstreept zijn.


Alvast bedankt,

Den

 

[Cobbe]

Zou dit u vooruit helpen?

Sub Roodkleuren()
 For Each cl In Range("A1:A50")
  If cl.Font.Bold = True And cl.Font.Underline = xlUnderlineStyleSingle Then
   cl.Font.ColorIndex = 3
  End If
 Next
End Sub

 

[spQQkrijder]

Beste Cobbe,

Ik heb de code uitgeprobeerd, maar hij geeft een error.

Sub Roodkleuren()
 For Each cl In Range("Z1:Z200")
  If cl.Font.Bold = True And cl.Font.Underline = xlUnderlineStyleSingle Then
   cl.Font.ColorIndex = 3
  End If
 Next
End Sub

For each cl (de cl wordt gekleurd).
Compile error: variable not found.

Gr.

Den

 

[ExcelAmateur]

spQQkrijder,

Ik heb de code van Cobbe ook getest en moet je zeggen werkt perfect.
Hij kleurt de ondersteepte woorden rood.

 

[spQQkrijder]

Ja, klopt in een nieuw sheet werkt het inderdaad.
Als ik deze uitvoer in mijn werksheet dan geeft hij deze error.

Wat zou dat kunnen zijn?

 

[Roncancio]

Dat komt omdat cl niet gedefinieerd is en je Option Explicit bovenaan je code hebt staan.

Sub Roodkleuren()
Dim cl as Range
 For Each cl In Range("A1:A50")
  If cl.Font.Bold = True And cl.Font.Underline = xlUnderlineStyleSingle Then
   cl.Font.ColorIndex = 3
  End If
 Next
End Sub

Met vriendelijke groet,


Roncancio

 

[spQQkrijder]

Fantastisch!!!! Het werkt. Niet normaal hoe jullie dat allemaal weten.

Petje af.

Mvg,

Den

 

[robdgr]

Fantastisch!!!! Petje af.

Den,

Zet je - met de pet in je hand - nog even een vinkje bij opgelost in je eerste bericht?