Durchsuchen nach 2 Bedingungen

=WENN('Tabelle2'!A2=Tabelle1!$A$1;WENN('Tabelle2'!B2=Tabelle1!$B$1;3;Falsch);Falsch)

Sub uebereinstimmungensuchen()
'bestimmen wo die 2 Zahlen stehen
Const c_feld1 = A1
Const c_feld2 = B1
'Namen bestimmen von der Tabelle wo die beiden Zahlen stehen
Const c_datentabelle = Tabelle1
'Namen bestimmen von der Tabelle wo die Daten stehen
Const c_tabelle = Tabelle2
'Hier darf man die beiden Spalten definieren wo die werte drinn stehen
Const c_spalte1 = A
Const c_spalte2 = B
'Und hier die Spalte wo die Zahl eingeschrieben wird
Const c_zielspalte = C
'Hier die Ausgabe werten, wenn Die Überprüfung stimmt bzw. eben nicht stimmt
Const c_truewert = 3
Const c_falsewert = FALSCH

Dim x As Long, wert1 As Long, wert2 As Long
x = 1
wert1 = Worksheets(c_datentabelle).Range(c_feld1).Value
wert2 = Worksheets(c_datentabelle).Range(c_feld2).Value
'es werden alle Zeilen überprüft wo daten haben in den beiden oben festgelegten Spalten
Do
If Worksheets(c_tabelle).Range(c_spalte1 & x).Value = wert1 And Worksheets(c_tabelle).Range(c_spalte2 & x).Value = wert2 Then
 Worksheets(c_tabelle).Range(c_zielspalte & x).Value = c_truewert
Else
 Worksheets(c_tabelle).Range(c_zielspalte & x).Value = c_falsewert
End If

x = x + 1
'Falls einer der beiden nächsten Zellen leer ist, wird das Makro beendet
If Worksheets(c_tabelle).Range(c_spalte1 & x).Value =  Or Worksheets(c_tabelle).Range(c_spalte2 & x).Value =  Then
 Exit Do
End If
Loop

End Sub