ScrollColumn / ScrollRow
31.10.2003 10:46:45
Simon
ich hänge an dieser Sache hier:
Ich möchte, dass nach dem Öffnen, alle Tabellenblätter ganz nach oben und ganz nach links gescrollt sind, damit ich nicht nach dem Auswählen eines Blattes jedesmal die Scrollbalken "von Hand" an den Anfang schieben muss... ist halt lästig.
Jedenfalls hab ich diesen Code, der mir leider immer folgende Fehlermeldung produziert:
"Methode oder Datenobjekt nicht gefunden."
---------------------------------------------------------------------
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
ws.ScrollColumn = 1
ws.ScrollRow = 1
Next
Worksheets("erstesBlatt").Activate
End Sub
--------------------------------------------------------------------
Kann mir jemand sagen, was hier faul ist?!
Vielen Dank - Simon
Anzeige