Ein bestimmtes Wort/Zeichenfolge soll innerhalb eines Textes rot markiert werden.

Die Suche umfasst den zuvor markierten Bereich.

 

 

 

 

Nach Codeausführung

 

 

 

 

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