Hallo zusammen,

ich habe ein programm geschrieben, welcher eine Namensliste durchgehen soll und mir die Zeilenposition ausgeben soll. Aber mein Excel crasht jedes mal nach dem ausführen.

Sub Schaltfläche1_Klicken()
Dim Name As String
Name = Cells(1, 1).Value
Dim i As Integer
Dim Nameposition As Integer
i = 6

'While Worksheets("Tabelle1").Cells(i, 1).Value <> ""
While i < 50
If Worksheets("Tabelle1").Cells(i, 1).Value = Name Then
Nameposition = i
Else
i = i + 1
End If
Wend

MsgBox (Nameposition)
End Sub

Könnt ihr einen Fehler in meinem Code finden ?