Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 11:45:34
Feld im SAP auslesen
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1224to1228
1224to1228
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Markierung nach dem Drücken der Entertaste

Markierung nach dem Drücken der Entertaste
Richard
Hallo,
ich habe folgendes Makro aufgezeichnet und in einer Mappe eingefügt:
Private Sub Workbook_Open()
Application.MoveAfterReturnDirection = xlToRight
End Sub
das funtkioniert auch, aber ..
scheinbar bleibt dieser Befehl für alle folgenden Mappen aktiv.
Kann ich erst durch Excel abfragen, wie die letzte Einstellung war,
dann das Makro starten ( beim Oeffnen der entpsrechenden Tabelle) und beim Schliessen wieder den Urzustand herstellen?
Danke für eine Antwort
Richard

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Markierung nach dem Drücken der Entertaste
30.07.2011 09:48:03
fcs
Hallo Richard,
du musst den Code unter "DieseArbeitsmappe" wie folgt erweitern.
Gruß
Franz 
'Code unter diese Arbeitsmappe
Dim StatusMoveAfterReturnDirection As Long
Private Sub Workbook_Activate()
Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_Deactivate()
Application.MoveAfterReturnDirection = StatusMoveAfterReturnDirection
End Sub
Private Sub Workbook_Open()
StatusMoveAfterReturnDirection = Application.MoveAfterReturnDirection
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.MoveAfterReturnDirection = StatusMoveAfterReturnDirection
End Sub

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige