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.
Hallo,
warum nicht mit bedingter Formatierung?
Gruß Werner
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
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.
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