target.value enthält ein Leerzeichen

Sub suchen()
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim raFund As Range, loSpalte As Long, loLetzte As Long
Dim loLetzteSpalte As Long, i As Long
Select Case Target.Column
Case 1
With Worksheets("Liste")
.Columns.Hidden = False
If (.AutoFilterMode And .FilterMode) Or .FilterMode Then
.ShowAllData
End If
loLetzteSpalte = .Cells(2, .Columns.Count).End(xlToLeft).Column
Set raFund = .Rows(4).Find(What:=Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
If Not raFund Is Nothing Then
Cancel = True
loSpalte = raFund.Column
Else
MsgBox Target.Value & " ist im Blatt Liste nicht vorhanden."
Exit Sub
End If
loLetzte = .Cells(.Rows.Count, loSpalte).End(xlUp).Row
.Range("$D$4:$O$" & loSpalte).AutoFilter Field:=loSpalte - 3, Criteria1:=""
For i = loLetzteSpalte To 5 Step -1
If .Cells(2, i)  Target.Offset(, 1).Value Then
.Columns(i).Hidden = True
End If
Next i
.Activate
End With
Case Else
End Select
Set raFund = Nothing
End Sub