Cursor und Ansicht erste freie Zelle
24.01.2005 14:36:54
Gisela
mit folgendem Makro soll der Cursor in die erste freie Zelle springen.
Sub InLetzteZelle()
Application.ScreenUpdating = False
Cells(Rows.Count, 1).End(xlUp).Offset(1, 2).Select
End Sub
Das funktioniert auch ganz gut. Nur wenn ich in den Zeilen 50 und folgende arbeite, springt der Cursor zwar in die nächste freie Zelle, z.B. 51, die Bildschirmansicht springt aber hoch, sodass ich die ersten 30 Zeilen sehe. Ich muss dann jedesmal mit dem Scrollbalken wieder nach unten.
Wie kann ich es einrichten, dass mir auch die aktuelle Ansicht erhalten bleibt.
Vielen Dank für jede Hilfe
Grüße Gisela