#Modul1
Option
Explicit
Private
m_lngVar
As
Long
Public
Sub
Test()
Const
C_WKS_NAME
As
String
=
"Tabelle1"
Const
C_FIND_STR1
As
String
=
"X"
Const
C_FIND_STR2
As
String
=
"Y"
Dim
rng1
As
Excel.Range
Dim
rng2
As
Excel.Range
With
ThisWorkbook.Worksheets(C_WKS_NAME)
Set
rng1 = .UsedRange.Find(C_FIND_STR1, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=
False
)
Set
rng2 = .UsedRange.Find(C_FIND_STR2, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=
False
)
If
Not
(rng1
Is
Nothing
And
rng2
Is
Nothing
)
Then
m_lngVar = m_lngVar + 1
End
If
Call
MsgBox(
"var = "
& m_lngVar, vbInformation)
End
With
End
Sub