Cursor rechts laufen lassen
07.01.2005 15:42:04
Korl
ich möchte erreichen, dass der Cursor in meiner gesamten Excelmappe rechts läuft.
Bei Schließung der Mappe, soll der Cursor wieder nach unten laufen. Letzteres wird auch umgesetzt.
Wieso wird bei Öffnung der Workbook meine gewünschte Funktion nicht umgesetzt?
Hier mein Code:
Private Sub Workbook_Open()
Worksheets("Liste").Select
With Sheets("Liste")
.Unprotect Password:="xxx"
.EnableAutoFilter = True
.Protect Contents:=True, UserInterfaceOnly:=True, Password:="xxx"
End With
Sheets("Stammdaten").Select
Range("C3:H3").Select
Application.CommandBars("Formatting").Visible = False
Application.CommandBars("Standard").Visible = False
Application.CommandBars("Drawing").Visible = False
Application.CommandBars("Fahrrad").Visible = True
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
.MoveAfterReturn = True
.MoveAfterReturnDirection = xlToRight <<<<<diese Funktion wird nicht umgesetzt
End With
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayHeadings = False
End Sub
Gruß Korl