Ich habe mal wieder ein kleines bescheidenes Problem und ich sehe die Lösung nicht...
Tatbestand: Es soll jede Zelle eines Bereiches auf das Wort "Min" geprüft werden, dieses kann aber am Anfang oder am Ende stehen ("Min Aufwand" / "Aufwand Min").
Ist es in der Zelle enthalten, soll das "Min" gefärbt werden, ala schwarzer Adler auf schwarzem Grund ;)
Hier ist mein Ansatz, jedoch will er nicht laufen :(
For Each zelle In Range("AO15:CT18")
If Right(ActiveCell.Value, 3) = "Min" Then
ActiveCell.Characters(3).Font
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981689
.ThemeFont = xlThemeFontNone
End If
If Left(ActiveCell.Value, 3) = "Min" Then
ActiveCell.Characters(3).Font
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981689
.ThemeFont = xlThemeFontNone
End If
Next zelle
wenn das mit dem erkennen und durchlaufen funktioniert müsste ich halt noch die
ActiveCell.Characters(3) anpassen, geht das auch mit:
ActiveCell.Characters(Left(3)) oder so?
Beste Grüße,
Seb