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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen