Thema: Suchen und einfärben | Herbers Excel-Forum

Hallo Zusammen!
Ich würde mich wieder einmal über eure Ratschläge freuen!
Möchte in VBA folgendes hinterlegt haben.
In Spalte H taucht an verschiedenen Stellen das Wort "Bemerkungen" auf. Da ich bereits mittels Code andere Zellen einfärben lasse möchte ich dies auch über VBA gelöst bekommen. Es soll wenn das Wort gefunden wurde, die darüber- und die darunterliegende Zelle grau (&H808080) einfärben.
Ich hoffe ihr könnt damit etwas anfangen?
Danke und Gruß Frank H.

Hallo Frank,
ich hätte folgendes VBA-Skript als Vorschlag:

Sub Bemerkungen_finden()
Zeile = 0
LetzteZeile = [H65536].End(xlUp).Row
For i = Zeile To LetzteZeile
i = Zeile + 1
Range(Cells(i, 8), Cells(LetzteZeile, 8)).Select
On Error GoTo weiter
Selection.Find(What:="Bemerkung", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Zeile = ActiveCell.Row
Cells(Zeile - 1, 8).Select
Call Farbe
Cells(Zeile + 1, 8).Select
Call Farbe
Next i
weiter:
Range("H1").Select
End Sub

Sub Farbe()
With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With
Range("H6").Select
End Sub

Gruß,
Ptonka

Hallo Ptonka!
Sorry! Ist nicht meine Art mit der Antwort und dem damit verbundenen Dank so lange auf sich warten zu lasse. Bin aber nicht eher zum testen gekommen.
Funzt Super - Ganz herzlichen Dank
Gruß Frank H.