Willkommen

Pivottabelle

Spezialfilter

Formeln

Zellformate

Bedingte Formate

Gültigkeit

Programmierung

UDF - Funktionen

Tipps & Tricks

Webabfrage

Fehlersuche

Farbindex

Shortcuts

Limitationen

Downloads

Links

Kontakt

Disclaimer

Impressum

Suchbegriff in Text rot markieren
 
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