Suchen und einfärben
15.04.2020 16:50:58
Josi
Ich bin relativ neu in VBA und Excel, und probiere mich ein bisschen einzuarbeiten. Leider verstehe ich es noch nicht so ganz.
Meine Idee ist es eine Suche über das ganze Dokument und sollte es mir das Wort finden die Font Art einfärben.
Ich habe mal etwas kleines geschrieben und ich kann das Wort ersetzen, jetzt möchte ich einfacht noch die Font Farbe ändern, jedoch stehe ich da auf dem schlauch.
Ich habe mit dem .Find probiert aber diese generiert mir nur Fehler.
Sub Test()
' Test Makro
With ActiveDocument.Content.Find
.Text = "/ R /"
.Forward = True
.Execute
If .Found = True Then .Parent.Bold = True
End With
End Sub
Hätte jemand eine Idee die mir weiter helfen könnte?
diese hier funktioniert aber weiss nicht wie einfärben.
Sub ErsetzenEinfaerben()
Dim sht As Worksheet
Dim finden As Variant
Dim ersetzen As Variant
fnd = "/ R /"
rplc = "/ R /"
'Meine Arbeitsmappe
Set sht = Sheets("TEST")
'Suchen und Ersetzen
sht.Cells.Replace what:=finden, Replacement:=ersetzen, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=True
End Sub