Office: Suchfunktion erweitern

Hallo zusammen,

ich habe da mal wieder ne Frage.
Vorneweg: Bin froh, dass es Leute wie Euch gibt, die soviel über Excel wissen und anderen helfen.
Also: Habe ein DIN A3 Excelliste mit vielen Eintragungen wie Zahlen, Namen,etc.
Wenn ich über Strg+F eine Zahl, Namen,etc. in dieser großen Liste suche, und sie auch gefunden wird, wird das Kästchen in dem dies steht, nur umrandet, und somit schwer zu erkennen.
Gibt es eine Möglichkeit, das Suchergebnis irgendwie zu Kennzeichnen:

Kästchen wird rot, und wird geneu in der Mitte des Bildschirmes dargestellt ?

Schon mal danke

 

Hallo!

Dieser Code sucht im markierten Bereich und scrollt die Zelle nach ganz links oben.

Code:

Sub Suchen()
Dim x, Ziel As Range
x = InputBox("Wonach soll gesucht werden?")
Set Ziel = Selection.Find(x)
If Ziel Is Nothing Then
MsgBox "Nix gefunden"
Else
Application.Goto Ziel, True
End If
End Sub

Färben könntest du mit
Ziel.Interior.Colorindex = 3