Sub test()
On Error Resume Next
ActiveWindow.ScrollRow = CLng(InputBox("Zeile:"))
End Sub
Private Sub CommandButton18_Click()
Workbooks.Open Filename:="D:\User\Eigene Dateien\Objektnummern"
On Error Resume Next
ActiveWindow.ScrollRow = CLng("Zeile:45")
End Sub