Zum Tabellenende scrollen

Insbesondere bei umfangreichen Tabellen und regelmäßigen Dateneingaben kann es sinnvoll sein, automatisch an das Tabellenende zu springen um den Nutzer as scrollen zu ersparen. Folgender Befehl sucht die letzte EIngabe in Spalte A und scrollt automatisch bis dort hin.

Sub TabellenEnde()

ActiveWindow.ScrollRow = Range("A65535").End(xlUp).Row

End Sub