bitte um Hilfe

Private Sub TextBox5_AfterUpdate()
Dim lzeile As Long
Dim lspalte As Long
Dim X
Dim Y
With Namen
lzeile = Worksheets("Orte").Cells(Rows.Count, 1).End(xlUp).Row
lspalte = Worksheets("Orte").Cells(1, Columns.Count).End(xlToRight).Column
For X = 2 To lzeile
For Y = 1 To lspalte
If .TextBox5.Text = "" Then Exit Sub Else
.TextBox6.Text = WorksheetFunction.VLookup(.TextBox5.Text, _
Worksheets(3).Cells(X, Y), _
Worksheets(3).Cells(X, 1), False)
Next
Next
End With
End Sub