Hallo,
füge die beiden Zeilen, die mit DIM beginnen gleich zu Anfang an (nach Sub ..)
Das würde dann z.B. so aussehen (dein aufgezeichnetes Makro etwas optimiert):
Sub DeinMakro()
Dim strSuch As String
Dim rngZelle As Range
With Columns("A:A")
.Font.Bold = True
.VerticalAlignment = xlCenter
'die folgenden Punkte kannst du dir eigentlich sparen; sind die Standardeinstellungen
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
'Suchbegriff, anpassen
strSuch = "Suchwort"
'Jede Zelle im genutzten Bereich durchlaufen
For Each rngZelle In ActiveSheet.UsedRange
'Falls das Suchwort in Zelle gefunden wurde, dann das Suchwort farbig markieren
If InStr(1, rngZelle.Value, strSuch) Then rngZelle.Characters(InStr(1, rngZelle.Value, strSuch), Len(strSuch)).Font.ColorIndex = 5
Next rngZelle
'Suchbegriff 2, anpassen
strSuch = "Begriff"
'Jede Zelle im genutzten Bereich durchlaufen
For Each rngZelle In ActiveSheet.UsedRange
'Falls das Suchwort in Zelle gefunden wurde, dann das Suchwort farbig markieren
If InStr(1, rngZelle.Value, strSuch) Then rngZelle.Characters(InStr(1, rngZelle.Value, strSuch), Len(strSuch)).Font.ColorIndex = 4
Next rngZelle
'hier geht dann dein Makro weiter
End Sub
Gruß
M.O.