For next mit vari fehler
13.04.2004 12:52:45
ray
in folgenden code soll er bei dem für inputXs eingegebenen Wert beenden, macht er aber nicht und zählt weiter bis 500
WEiß jem. was ich wieder falsch mache???
Gruß aus Hamburg Ray
Sub abr_lpt_BeiKlick()
'
inputX = InputBox("Von VE") '0
inputXS = InputBox("Bis VE")' 12
x = inputX
For i = 1 To 500
Application.ScreenUpdating = False
x = x + 1
If x = inputXS Then GoTo zend 'wenn x = 12 dann weg
'hier passiert dann das was soll
Next i
zend:
Exit Sub