Wort in einem Text mit 2. Farbe hervorheben
20.09.2004 20:33:14
Klaus
ich möchte ein gefundenes Wort in einem Text mit einer 2. Farbe hervorheben.
Mit dem folgenden Makro färbe ich z.B. 5 Zeichen ab der 10. Stelle ein:
Sub Suchwort_färben()
Worksheets("Zitate").Range("C8").Characters(Start:=10, Length:=5).Font.ColorIndex = 40
End Sub
Wie kann ich nun den Start- und Length-Bereich variabel gestalten?
Die unteren VBA-Formeln geben mir zwar die richtigen Werte, ich schaffe es aber nicht
sie in mein Makro einzubauen.
Strt = "=FIND(T(SUBSTITUTE(Sammlung!R[-18]C[6],""*"","""")),Zitate!R[-11]C[-1],1)"
Leng = "=LEN(Sammlung!R[-19]C[6])-2"
Beispielarbeitsmappe anbei.
Vielen Dank für Antworten
Klaus