Das folgende Makro markiert ein gefundenes Wort in einer Textzelle:
Sub Suchwort_Color()
Dim leng As Integer
Dim strt As Integer
Dim TMP As String
' das zu markierende Wort steht im Tabellenblatt 'Sammlung' Zelle 'J1'
' am Anfang und Ende mit * gekennzeichnet
With Worksheets("Sammlung").Range("J1")
leng = Len(.Value) - 2
' gesuchtes Wort ohne führendes * und abschließendes *
TMP = Mid(.Value, 2, leng)
End With
' Startposition des zu suchenden Wortes
strt = InStr(Worksheets("Zitate").Range("C8"), TMP)
'einfärben
Worksheets("Zitate").Range("C8").Characters(strt, leng).Font.ColorIndex = 40
End Sub
Das Makro funktioniert, findet allerdings nur die genaue Schreibweise. Ich möchte
allerdings sowohl klein- wie auch gross geschriebenen Wörter markiert haben.
Beispiel:
Suchworteingabe ist "Liebe"
Gefunden und markiert werden sollte "Liebe" aber auch "liebe" von z.B. "liebevoll".
Wie muss ich das Makro ändern?
Danke im voraus für Antworten
Klaus