Excel - Hyperlink - Scroll auf oberen Bildschirmrand

[Nimmersatt]

Zu dieser Thematik folgender Code

Hallo Helmut,

ich vermute mal, da es viele Bildshirmauflösungen gibt hast Du da keine Change. Oben links wäre machbar.

Auf Zelle springen und Anzeige ganz oben links
Application.Goto Reference:=Worksheets("Tabelle1").Range("A51"), Scroll:=True
oder
Option Explicit

Private Sub Workbook_Open()
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
End Sub


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
'Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
ActiveWindow.ScrollColumn = ActiveWindow.ActiveCell.Column
ActiveWindow.ScrollRow = ActiveWindow.ActiveCell.Row
End SubDiesen 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


Kann das jemand in Delphi übersetzen ?


mfg Nimmersatt