Hallo,
ich möchte per Makro-Code die Zeile mit der aktive Zelle in den unteren Bereich knapp über die horizontale Bildlaufleiste bekommen.
Kann mir bitte jemand dabei helfen?
Besten Dank.
Karsten
PublicSub test() Dim L AsLong With ActiveWindow.VisibleRange L = .Rows(.Rows.Count).Row EndWith ActiveWindow.ScrollRow = ActiveWindow.ScrollRow - L + ActiveCell.Row EndSub
ransi
Anzeige
AW: Position der Zeile mit aktive Zelle verändern
13.11.2010 13:58:52
Karsten
Hallo Ransi,
danke. Ich habe soeben in meinen Makros und Mappen gesucht und gerade gefunden, was ich brauchte und dafür passt.
Tut mir leid für deine Mühe.
Gruß
Karsten
For lngC = 1 To 30
Set unterkante_1 = ActiveWindow.VisibleRange
Zeile1 = ActiveCell.Row
ActiveWindow.ScrollRow = WorksheetFunction.Max(1, Zeile1 - unterkante_1.Rows.Count / 1.01)
Next