Suche Macro neustarten wenn nix gefunden

Private Sub ToggleButton3_Click()
Windows("Tüv Mangel").Activate
With ToggleButton3
.BackColor = IIf(.Value = True, RGB(255, 0, 0), RGB(0, 255, 0))
End With
If ToggleButton3.Value = True Then
Dim Suchergebnis As Range
Dim Eingabe
Dim Feld As Integer
Eingabe = InputBox("Suche nach Kundennummer, Kundenname, Lödige Nr, Original Nr,  _
Monteur, Ort")
Set Suchergebnis = Worksheets("Tabelle1").Range("A:D,H:H,V:V").Find(Eingabe, lookat:= _
xlWhole, LookIn:=xlValues)
If Not Suchergebnis Is Nothing Then
Feld = Suchergebnis.Column
Selection.AutoFilter Field:=Feld, Criteria1:="=" & Eingabe
Else
MsgBox "nicht gefunden"
End If
Call UserForm_Initialize
End If
If ToggleButton3.Value = False Then
ActiveSheet.Range("$A$1:$T$3").AutoFilter Field:=1
ActiveSheet.Range("$A$1:$T$3").AutoFilter Field:=2
ActiveSheet.Range("$A$1:$T$3").AutoFilter Field:=3
ActiveSheet.Range("$A$1:$T$3").AutoFilter Field:=4
ActiveSheet.Range("$A$1:$T$3").AutoFilter Field:=8
ActiveSheet.Range("$A$1:$T$3").AutoFilter Field:=22
End If
Call UserForm_Initialize
End Sub