Sub DoLoop()
Dim x As String
x = 0
Do
x = x + 4
Cells(x, 1 ).Value = x
Loop Until x > 300000
Msgbox "x ist nicht kleiner 5 "
End Sub
Sry ich beschäftige mich erst seit ein paar monaten mit dem Programmieren und bin nicht sonderlich schnell.
Vielen dank für deine geduld
|