Do Loop Schleife wird zur Endlosschleife
11.03.2013 20:54:18
Jörg
wieso wird diese Do Loop Until Schleife zur Endlosschleife?
Sub test
Dim a As Integer
Dim i As Integer
Dim s As Integer
a = 2
i = 1
For i = 1 To 20
Cells(i, 1) = i
Next i
For i = 1 To 20
Do
s = Cells(i, 1) * a
Cells(i, 2) = s
Loop Until s kleiner 18
Next i
End Sub
Ich habe natürlich das mathematisch kleiner als Symbol verwendet. Gruß Jörg