Office: (Office 2007) Mehrere Wörter suchen und farbig markieren

Hallo CitizenX,
danke für den Code.
Habe ihn etwas umgewandelt um in einer Datei "immer" nach bestimmten Wörtern zu suchen und ggf. diese Wörter oder/und die jeweilige Zelle zu markieren. Ohne Inputbox.


Sub SuchenFarbigMarkieren()
'es wird die gesamte tabele durchsucht und dann die ausgewählten wörter/zeichen markiert
Dim strFind$, myFind, firstAdd$, i&
Dim strTemp$

'strFind$ = InputBox("Bitte geben Sie die Suchbegriffe ein." & vbNewLine & "Trennen Sie die Suchbegriffe mit einem Schrägstrich / ", "Suche")

strFind$ = "hund/maus/katze"


If strFind$ = vbNullString Then Exit Sub

For i = LBound(Split(strFind$, "/")) To UBound(Split(strFind$, "/"))
strTemp$ = Trim(Split(strFind$, "/")(i))
Set myFind = Cells.Find(strTemp$, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not myFind Is Nothing Then
firstAdd$ = myFind.Address
Do

'zelle markieren
Range(myFind.Address).Interior.Color = vbYellow
'vbBlack Schwarz - vbRed Rot - vbGreen Grün - vbYellow Gelb - vbBlue Blau - vbMagenta Magenta - vbCyan Zyan - vbWhite Weiß


'schrift markieren
Range(myFind.Address).Font.ColorIndex = 3
' 3=rot, 6=gelb, 5=blau, 10=grün

Set myFind = Cells.FindNext(myFind)
Loop While myFind.Address firstAdd$
End If
Next i

End Sub
*mrcool

 

Hallo ich habe diesen Code ausprobiert aber es funktioniert nicht ganz so wie ich es bräuchte.

Ich müsste zum Beispiel nach mehrer Wörtern in fogendem Format suchen:
aqua, sodium laureth sulfate, glycerin
Das die Trenung durch Komma statt "/" stattfindet habe ich selbst hinbekommen. Nur leider gibt es ein weitere paar Probleme.
1. "aqua" und "gycerin" werden gefunden jedoch auch wenn sie nur Teil eines Textes sind, also habe ich LookAt:=xlPart in LookAt:=xlWhole geändert und das geht jetzt soweit. Schön wäre es jedoch wenn zunächst keine genaue Übereinstimmung gefunden wird, soll dann eben auch nach teilen gesucht werden als nächsten Schritt also xlPart.
2. Mit dem Wort "sodium laureth sulfate" passiert gar nichts, er wird ignoriert. Wahrscheinlich weil dort Leerzeichen enthalten sind? Was kann man da machen?
3. Ich bräuchte bei den übereinstimmenden Wörter nicht die Zelle rot makiert sondern eher eine Art Ausgabe(msgbox oder Textbox) wo die übereinstimmenten bzw. teilübereinstimmenden Wörter auf einen Blick aufgelistet sind. Oder noch besser wäre es wenn man vll. es so machen könnte dass Excel die Zellen die übereinstimmen heraus filtert aus der Tabelle und nur diese anzeigt?

Ich habe leider nicht viel Ahnung davon, aber es wäre echt schön wenn ihr mir helfen könntet. So eine Tabelle würde mir mein Leben erleichtern. Denn ich muss alle Produkte die ich kaufe auf für mich gefährliche Inhaltsstoffe überprüfen.

Danke *Smilie

 

Danke hat mir auch geholfen,
nur habe ich bei vielen Wörtern das Problem das es ewig dauert.
Mir würde es reichen wenn es nur in Spalte C gesucht wird.
Wie kann ich dies einschränken darauf?

gruss
face

 

Moin
Ersetz mal die beiden Cells
durch
Columns(3)
gruss hary

 

Perfect !!
Danke Hary