Der Code für ein allgemeines Modul:
Public Sub Wort_innerhalb_eines_Textes_rot_markieren()
'Code für ein allgemeines Modul
'*********************************
'Autor: Jürgen Hennekes
'*********************************
'Code arbeitet innerhalb des markierten Bereichs
'Jede Übereinstimmung mit dem Suchbegriff wird rot markiert.
'Texte, welche aus Formeln resultieren werden ignoriert.
'Zahlen werden ignoriert
Dim rngZelle As Range
Dim intStart As Integer
Dim strInbox As String
Dim strDummy As String
Dim intI As Integer
Dim intLen As Integer
Dim lngCounter As Long
strInbox = InputBox("Welches Wort soll innerhalb des markierten Bereichs rot gefärbt werden?" & vbCr _
& vbCr & "Bitte Groß- und Kleinschreibung beachten.")
If strInbox = "" Then Exit Sub
For Each rngZelle In Selection
If Not IsNumeric(rngZelle) Then
strDummy = rngZelle.Value
For intI = 1 To Len(rngZelle)
If InStr(strDummy, strInbox) > 0 Then
intStart = InStr(strDummy, strInbox)
rngZelle.Characters(Start:=intStart + intLen, Length:=Len(strInbox)).Font.ColorIndex = 3
intLen = intLen + intStart + Len(strInbox) - 1
strDummy = Right(rngZelle, Len(rngZelle) - intLen)
lngCounter = lngCounter + 1
Else
intStart = 0
intLen = 0
Exit For
End If
Next
End If
Next
MsgBox "Durchsucht wurde Bereich: " & Selection.Address(0, 0) & vbCr & vbCr _
& "Der Suchbegriff [ " & strInbox & " ] wurde " & lngCounter & "x gefunden und rot markiert.", 64
End Sub