Sprung ans Ende der Zeile 1

[dertommy]

Hallo!

Ich brauche für VBA einen Code, der mir in die letzte freie Zelle in der ersten Zeile 1 springt. Ich bin derzeit in der Zeile ES1 und es ist total mühsam, nachdem das Tabellenblatt immer größer wird, immer soweit nach rechts zu scrollen.

Ich hoffe, dass mir jemand weiterhelfen kann.

LG
Thomas

[RPP63]

Moin!

Code:

Cells(1, Columns.Count).End(xlToLeft).Offset(0, 1).Activate

oder

Code:

ActiveWindow.ScrollColumn = Cells(1, Columns.Count).End(xlToLeft).Column + 1

Gruß Ralf