in spalte A habe möchte ich jede zelle fett und grün formatieren, wo der Text "MSCI DM" steht.
das untere makro funktioniert leider nicht und ich schaffe es nicht umzubauen. kann mir jmd. einen tip geben?
Danke.
dani
Sub wenn_MSCI()
Sheets(6).Activate
Dim z As Object
Dim i As Long
For Each z In Range("A1:A50")
For i = 1 To Len(z.Value)
If z.Characters(i, 1).Font.Bold = True Then
z.Interior.ColorIndex = 3
End If
Next
Next
End Sub