Schriftfarbe spielt verrückt
Seb
danke CitizenX konnte ich meine gewünschte Funktion erhalten:
Sub ColorText()
Dim Zelle As Range, Pos As Long
For Each Zelle In Range("AO15:CT18")
Pos = InStr(Zelle.Value, "Min")
If Pos Then
With Zelle.Characters(Pos, 3).Font
.ThemeColor = xlThemeColorAccent1
.TintAndShade = 0.799981689
.ThemeFont = xlThemeFontNone
End With
End If
Next Zelle
End Sub
es wird in den zellen der wortbestandteil "min" gesucht und dieser soll dann wie der hintergrund gefärbt werden.die funktion klappt soweit auch, jedoch tritt ein seltsamer "fehler" auf:
steht nur "min" in der zelle passt die farbe, stehen jedoch 2 wörter (zb. "Mittelwert Min") in der zelle, dann wird "min" komischerweise in eine andere farbe als ich zuweise gefärbt...
gibt es dafür eine erklärung, bzw lösung?
BG,
Seb