Daniel hat mir erfreulicherweise u.s. Befehl (leicht abgeändert) erstellt.
Ich möchte, dass er nur dann gestartet werden soll, wenn ActiveCell.Row unterhalb des Sichtbereichs liegt.
Dim Zeile As Long
Zeile = ActiveCell.Row
With ActiveWindow
.ScrollRow = WorksheetFunction.Max(1, Zeile - .VisibleRange.Rows.Count / 1.1)
End With
Vergleiche Tabelle1 und Tabelle2 im Beispiel.
https://www.herber.de/bbs/user/65745.xls
Danke für eure Hilfe.
Gruß
Karsten