suchen zusammengesetzt?

Sub DatenSatzSuchen(Taste As String)
Dim Zeile As String
Dim Name As String
Dim frm2 As Object
Set frm2 = Uf_Adressen
TestDateiName
With frm2
If Name  .TextBox15.Value Then
On Error GoTo fehler
If Taste = "pgup" Then
Range("A:F", "K").Find(What:=.TextBox15.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, _
MatchCase:=False, SearchFormat:=False).Activate
Name = .TextBox15.Value
ElseIf Taste = "pgdn" Or Taste = "enter" Then
Range("A:F").Find(What:=.TextBox15.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Name = .TextBox15.Value
End If
Else
Range("A:F").FindNext(After:=ActiveCell).Activate
End If
Zeile = ErmZeile(ActiveCell.Address)
Uf_Adressen.Caption = "Adressen Jutta Grohn   Verzeichnis= " _
& LW & DatVerzeichnis & "  Datei= " _
& AdrDat & "  Tabelle= " & TabAdr & "  Datensatz= " & Zeile
Daten_laden (Zeile) ' überträgt die Tabellenzellen der Zeile in die Textbox-Felder
Exit Sub
fehler:
MsgBox "Ein Datensatz " & Chr(34) & .TextBox15.Value & " konnte nicht gefunden werden"
End With
End Sub