Option
Explicit
Sub
test()
Dim
rngBereich
As
Range
Dim
c
As
Range
Dim
lngLetzte
As
Long
lngLetzte = Cells(Rows.Count, 1).
End
(xlUp).Row
Set
rngBereich = Range(
"A1:CV"
& lngLetzte)
Set
c = rngBereich.Find(
"Wort1"
, LookIn:=xlValues, lookat:=xlWhole)
If
Not
c
Is
Nothing
Then
MsgBox
"das gesuchte Wort1 ist in Zelle "
& c.Address
Exit
Sub
Else
MsgBox
"Wort1 ist nicht vorhanden"
End
If
Set
c = rngBereich.Find(
"Wort2"
, LookIn:=xlValues, lookat:=xlWhole)
If
Not
c
Is
Nothing
Then
MsgBox
"das gesuchte Wort2 ist in Zelle "
& c.Address
Exit
Sub
Else
MsgBox
"Wort2 ist nicht vorhanden"
End
If
End
Sub