Userform nach zwei Varianten suchen

Private Sub CmdOK_Click()
Dim x As Variant
Dim z As Integer
Dim temp As String
Dim i As Variant
Dim zieldatei As Variant
z = Sheets("Tabelle2").UsedRange.Rows.Count
x = TxtVorname and TxtNachname
temp = 0
For i = 2 To z
If Sheets("Tabelle2").Cells(i, 5) = x Then
temp = 5
If Sheets("Tabelle2").Cells(i, 3) = x Then
temp = 3
Exit For
End If
Next
If temp = 5 Or 3 Then
Unload Me
zeile = i
Userform2.Show
Else
TxtVorname = ""
txtNachname = ""
End If
End Sub