Hallo,
ich möchte diesen Code 10 mal als Schleife durchlaufen lassen (auch wenn es sinnos erscheint).
Kann mir jemand weiterhelfen?
Danke.
Dim unterkante_1 As Range
Set unterkante_1 = ActiveWindow.VisibleRange
Zeile1 = ActiveCell.Row
ActiveWindow.ScrollRow = WorksheetFunction.Max(1, Zeile1 - unterkante_1.Rows.Count / 1.01)
Gruß
Karsten