Vergleich eines Wertes

Private Sub CommandButton1_Click()
Dim a As Integer
Dim u As Integer
Dim x As Integer
Dim z
Dim Bereich
For u = 11 To Cells(65536, 1).End(xlUp).Row
For a = 2 To Cells(65536, 1).End(xlUp).Row
z = Worksheets("Auswertung").Range("A65536").End(xlUp).Row + 1
'Set Bereich = Worksheets("Datenbank").Range("t2:t65536")
If Worksheets("Auswertung").Cells(4, 2) = Worksheets("Datenbank").Cells(a, 20).Value Then
End If
Next a
Next u
End Sub