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 ?
|