Option
Explicit
Function
IsThere(Sh
As
Worksheet, Addr
As
String
, IsIt
As
Variant
)
As
Boolean
Dim
c
As
Range
Set
c = Sh.Range(Addr).Find(IsIt, , xlValues, xlWhole)
If
Not
c
Is
Nothing
Then
If
c.Offset(1).Value <>
""
Then
IsThere =
True
End
If
End
Function
Sub
Message()
Dim
Sh
As
Worksheet
For
Each
Sh
In
Sheets
If
IsThere(Sh,
"A3:A9"
,
"Bewertung"
)
Then
Call
MsgBox(
"Mach was mit "
& Sh.Name, vbInformation)
End
If
Next
Sh
End
Sub
Sub
cruelty()
If
IsThere(ActiveSheet,
"A3:A9"
,
"Bewertung"
)
Then
Call
MsgBox(
"Mach was mit mir"
, vbInformation)
End
If
End
Sub