Bessere Suchfunktion
28.08.2003 16:56:49
Lars
Habe ein Problem mit meiner Suche, Suche nach in der Tabelle vorhandenen Namen und Zahlen. Diese Suchroutine funktioniert auch einwandfrei. Wie kann ich die jeweils dann gefundene Zelle mit einer Farbe hinterlegen und vielleicht noch die dazu gehörende Zeile mit ner anderen Farbe markieren. Hab auch schon daß eine oder andere ausprobiert, aber mit dem Blattschutz haut das alles nicht so richtig hin.
Private Sub beim Tabellenblatt bzw. in der Excel Mappe haben auch nicht so richtig funktioniert. Mein momentaner Suchcode ist nachstehend aufgeführt.
Wer kann helfen ???
Danke im Voraus !!!
Sub Suche()
Dim bereich As Range
Dim s As String
Sheets("text").Activate
s = InputBox _
("Please enter the words you are looking for (SKU#, P/N#)!")
If s = "" Then
Exit Sub
Set bereich = Sheets("text").Columns() _
.Find(s, lookat:=xlPart)
If bereich Is Nothing Then
MsgBox "name '" & s & _
"'konnte nicht gefunden werden !"
Else
bereich.Select
End If
End Sub