Schlüsselbegriffe farbig markieren

[DerAnfänger]

Hallo,

ich habe  über meine gesamte Tabelle hinweg einige Schlüsselwörter die ich gern mittels VBA Code farbig markieren möchte.

Zum Beispiel soll das Wort "Übertrag"  in rot oder das Wort "Saldo"  überall  blau erscheinen.

Wie mache ich das? Vielen Dank für eure Hilfe im voraus.

[Werner.M]

Hallo,

warum nicht mit bedingter Formatierung?

Gruß Werner

[steve1da]

Hola,

wahrscheinlich stehen die Wörter inmitten eines Textes und nur die einzelnen Wörter sollen farblich hervorgehoben werden.
Ist aber nur geraten.

Gruß,
steve1da

[DerAnfänger]

Hallo steve1da,


du hast völlig richtig geraten, die Wörter stehen mitten im Text.
Da ich mich derzeit mal wieder ein bißchen mit VBA Programmierung beschäftige, frage ich mich ob
es einen analogen Befehl zu suchen und ersetzen gibt denn man diesbezüglich auf dieses Problem
hier umsetzen könnte.

[Werner.M]

Hallo,

um mich nicht mit fremden Federn zu schmücken, der ursprüngliche Code ist von Rudi Maintaire aus dem Herber-Forum. Ich habe ihn nur an deine Bedürfnisse angepasst.
Beim Code bin ich aber davon ausgegangen, dass es sich um einen zusammenhängenden Bereich handelt.

Code:

Sub Textteil_färben()
Dim rngC As Range, i As Long, j As Long

Application.ScreenUpdating = False

With Worksheets("Tabelle1") 'Blattname anpassen
   For Each rngC In .UsedRange
       i = InStr(rngC, "Übertrag")
       j = InStr(rngC, "Saldo")
           If i > 0 Then
               rngC.Characters(i, 8).Font.ColorIndex = 3
           ElseIf j > 0 Then
               rngC.Characters(j, 5).Font.ColorIndex = 23
           End If
       Next
End With

Application.ScreenUpdating = True
End Sub

Gruß Werner