zufall = RandomChoice[{-1,1},10000]; randomwalk=FoldList[Plus,0,zufall]; Manipulate[ListLinePlot[randomwalk[[1;;nmax]]],{nmax,10,10000,10}]