ein allo zu beginn und ein Gruß am Ende läst den Beitrag gleich viel freundlicher aussehen.
Auf Zelle springen und Anzeige ganz oben
Application.Goto Reference:=Worksheets("Tabelle1").Range("A51"), Scroll:=True
oder
Private Sub Workbook_Open()
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
End Sub
Diesen Code dem Workbook zuweisen. Es ist erforderlich, daß die beiden Scroll-Befehle sowohl dem Ereignis Workbook_Open als auch Workbook_SheetChange zuzuweisen. Dann erscheint die aktive Zelle immer links oben.
Von "Quinoman" Michael
Gruß Hajo