ich möchte unten zusätzlich zur Bedingung "höre auf Zeilen nach gegebener Gesetzmässigkeit zu produzieren sobald Wert grösser als Wert in B102" noch folgende Bedingung einbauen: "höre auf sobald mehr als 30 mal loop gemacht". Also entweder oder.
Kann das jemand, sollte eigentlich nicht schwierig sein, aber ich kanns leider (noch) nicht. Verspreche aber mir ganz gut zu merken wie man das Problem löst, damit ich es das nächste mal schon selber kann.
Beste Grüsse und besten Dank!
thomas
Sub
Dim iZeile As Long
Dim Startwert As Long
Application.ScreenUpdating = False
Startwert = WorksheetFunction.RoundUp(Range("B100"), 0)
iZeile = 105
Do Until Startwert "grösser als" Range("B102")
Cells(iZeile, 2) = Startwert
iZeile = iZeile + 1
Startwert = Startwert + 3
Loop
End Sub