Makro Suche mit Zelle farblich markieren
29.04.2021 18:27:03
Dirk
ich habe folgendes Makro zur Stichwortsuche über mehrere Tabellenblätter. Folgende Frage dazu: Was muss ich ergänzen, damit die Zelle in der der gesuchte Begriff gefunden wird, farblich markiert wird? Welche Farbe spielt aktuell keine Rolle, das kann man ja sicher immer noch ändern. Danke im Voraus für Eure Hilfe.
Hier das Makro:
Sub MultiSuche()
Dim Sh As Worksheet
Dim GZelle As Range
Dim FStelle$
Dim SBegriff
SBegriff = InputBox("Bitte Suchbegriff eingeben:")
For Each Sh In Worksheets
Sh.Activate
Set GZelle = Sh.Cells.Find(SBegriff)
If Not GZelle Is Nothing Then
FStelle = GZelle.Address
Do
GZelle.Activate
If MsgBox("Weiter", vbYesNo + vbQuestion) = vbNo Then Exit Sub
Set GZelle = Cells.FindNext(after:=ActiveCell)
If GZelle.Address = FStelle Then Exit Do
Loop
End If
Next Sh
End Sub