|
Hallo,
ist es mögliche eine For to Step Schleife als Do Until Schleife zu schreiben?
rasterweite = TextBox1.Value
maxabst = TextBox2.Value
ry = 0
rx = 0
Tabelle1.Activate
Call minmax(miny, maxy, minx, maxx, minh, maxh)
For X = minx To maxx Step rasterweite
rx = rx + 1
ry = 0
For Y = miny To maxy Step rasterweite
ry = ry + 1
Tabelle3.Cells(rx, ry) = Round(interpol(Y, X, maxabst))
Next Y
Next X
also diese Schleife als Do Schleife.
|