Zelle nach Wörtern durchsuchen
08.01.2015 14:15:36
Kevin
ich versuche mich schon eine Weile an einem vielleicht kleinem Problem.
Undzwar habe ich in einer Zelle A1 z.B. stehen : " Haus; Auto; Telefon; Ball"
Nun möchte ich die Zelle nach mehreren Wörtern durchsuchen.
Jedoch habe ich keinen weiteren Ansatz außer diesen, und dieser tut nicht :(
Sub Suche()
Dim s As String
s = Cells(1, 1)
If InStr(1, s, "Haus" And "Ball", vbBinaryCompare) > 0 Then
MsgBox ("Gesuchte Wörter wurden gefunden")
End If
End Sub
Wie kann ich nach mehreren Texten (auch mehr als zwei) gleichzeitig suchen?
Ich hoffe hier kann mir jemand weiterhelfen. Vielen Vielen Dank im Vorraus!