Cursorsteuerung und Kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Workbook_Deactivate() If Application.CutCopyMode = False Then 'Start-Cursoreinstellungen wieder herstellen Application.MoveAfterReturnDirection = gintCursorRichtung Application.MoveAfterReturn = gblnCursorStatus End If End Sub Gruß Sepp P.S.: Rückmeldung nicht vergessen!

Hallo Ulf,
ich mache ess jetzt so:

Private Sub Workbook_Activate()
  'Cursoreinstellung festlegen
  Application.MoveAfterReturn = True
  Application.MoveAfterReturnDirection = xlToRight
End Sub
Private Sub Workbook_Deactivate()
  'Cursoreinstellung zurücksetzen
  If Application.CutCopyMode = False Then
    Application.MoveAfterReturnDirection = xlDown
    Application.MoveAfterReturn = True
  End If
End Sub

So ganz ist es nicht das was mir vorschwebte.
Erklärung: Normalerweise ist die Cursorbewegung ja auf "unten" eingestellt.
Nun habe ich verschiedene Mappen, bei denen ich "rechts" benötige. So entstand meine Idee. Das mit dem merken des Anfangszustandes klappt aber spätestens dann nicht mehr, wenn ich mehrere dieser "gesteuerten" Mappen offen habe und in anderer Reihenfolge schließe. Am meisten hat mich aber gestört, dass ich nicht kopieren konnte. Deswegen habe ich mich jetzt dazu entschieden es "starr" zu steuern. Oder hast Du noch einen genialeren Einfall?
Gruß Jens

Hallo Jens!
Probier mal das:

'Allgemeines Modul
'benötigt den Verweis auf "Microsoft Forms X.X Object Library"

Option Explicit
Dim myText
Sub ZwischenablgeIn()
Dim Zwischenablage As DataObject
Set Zwischenablage = New DataObject
On Error Resume Next
   Zwischenablage.GetFromClipboard
   myText = Zwischenablage.GetText(1)
End Sub
Sub ZwischenablgeOut()
Dim Zwischenablage As DataObject
Set Zwischenablage = New DataObject
   Zwischenablage.SetText myText
   Zwischenablage.PutInClipboard
End Sub
'DieseArbeitsmappe
Option Explicit
Public gblnCursorStatus As Boolean
Public gintCursorRichtung As Integer

Private Sub Workbook_Activate()
ZwischenablgeIn
  'Start-Cursoreinstellungen merken
  gblnCursorStatus = Application.MoveAfterReturn
  gintCursorRichtung = Application.MoveAfterReturnDirection
  'Cursoreinstellung festlegen
  Application.MoveAfterReturn = True
  Application.MoveAfterReturnDirection = xlToRight
ZwischenablgeOut
End Sub
Private Sub Workbook_Deactivate()
ZwischenablgeIn
  'Start-Cursoreinstellungen wieder herstellen
  Application.MoveAfterReturnDirection = gintCursorRichtung
  Application.MoveAfterReturn = gblnCursorStatus
ZwischenablgeOut
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!

Beliebteste Forumthreads (12 Monate)

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread