Sub
FindeGleiches()
Dim
wks1
As
Worksheet
Dim
wks2
As
Worksheet
Dim
suchRange
As
Range
Dim
suchKritRange
As
Range
Dim
varZelleKrit
As
Variant
Dim
varZelleSuch
As
Variant
Set
wks1 = Worksheets(
"Tabelle1"
)
Set
wks2 = Worksheets(
"Tabelle2"
)
Set
suchKritRange = wks2.Range(
"F2:F5"
)
Set
suchRange = wks1.Range(
"F2:F5"
)
For
Each
varZelleKrit
In
suchKritRange
For
Each
varZelleSuch
In
suchRange
If
varZelleKrit.Value = varZelleSuch.Value
Then
MsgBox
"Übereinstiimmung gefunden"
& vbNewLine & _
"auf dem Blatt 1 in Zeile "
& varZelleKrit.Row & vbNewLine & _
"und auf dem Blatt 2 in Zeile "
& varZelleSuch.Row
End
If
Next
varZelleSuch
Next
varZelleKrit
End
Sub