Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: nach enter nach rechts

nach enter nach rechts
07.02.2007 15:44:05
Jürg
Hallo Forum
Welchen Code kann man verwenden oder diesen irgendwie anpassen
dass nach enter von B bis I nach springt dann nächste zeile nach unten nach b und dann wieder bis I nach rechts
Application.MoveAfterReturnDirection = xlToRight
besten Dank
gruss
jürg
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: nach enter nach rechts
07.02.2007 16:06:25
IngGi
Hallo Jürg,
wenn du einfach Daten in einen bestimmten Bereich eingeben willst, kannst du alternativ den Eingabebereich markieren und an Stelle der Entertaste die Tabulatortaste zum Abschließen der Eingabe verwenden. Dann springt er so, wie du das haben willst.
Mit VBA geht das zum Beispiel so:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fehler
Application.EnableEvents = False
Select Case Target.Column
   Case 2 To 8
   Target.Offset(-1, 1).Select
   Case 9
   Target.Offset(0, -7).Select
End Select
Fehler:
Application.EnableEvents = True
End Sub


Nachteil: Der Code unterscheidet nicht, ob du per Entertaste oder per Mausklick die Zelle wechselst. Er versucht auch nach einem Mausklick die Zellauswahl zu korrigieren.
Gruß Ingolf
Anzeige
AW: nach enter nach rechts
07.02.2007 16:14:29
Jürg
Hallo Ingolf
kann men den code noch so anpassen , wenn keine eingabe erfolgt dass der cursor nach eine zeile tiefer B springt
sonst ist es i.o
gruss
jürg
AW: nach enter nach rechts
07.02.2007 16:56:09
IngGi
Hallo Jürg,
das wird schon komplizierter, da Excel sich den alten Zellinhalt in einer Variablen merken muss, damit man prüfen kann, ob sich der Zellinhalt geändert hat. Das Modul des Tabellenblattes beinhaltet dann die Deklaration von zwei Variablen (WertAlt und WertNeu) sowie zwei Makros und sieht so aus:

Option Explicit
Dim WertAlt, WertNeu
Private Sub Worksheet_Activate()
WertNeu = ActiveCell
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
WertAlt = WertNeu
WertNeu = ActiveCell.Offset(-1, 0)
On Error GoTo Fehler
Application.EnableEvents = False
Select Case Target.Column
   Case 2 To 8
      If WertAlt = ActiveCell.Offset(-1, 0) Then
         Cells(ActiveCell.Row, 2).Select
      Else
         Target.Offset(-1, 1).Select
      End If
   Case 9
      Target.Offset(0, -7).Select
End Select
Fehler:
Application.EnableEvents = True
End Sub


Gruß Ingolf
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel: Cursor nach Enter nach rechts springen


Schritt-für-Schritt-Anleitung

Um den Cursor in Excel nach dem Drücken der Enter-Taste nach rechts springen zu lassen, kannst du den folgenden VBA-Code verwenden. Dieser Code verändert die Standardverhalten von Excel, sodass der Cursor nach der Eingabe in den Zellen B bis I nach rechts springt und in der nächsten Zeile wieder nach B:

  1. Öffne Excel und drücke ALT + F11, um den Visual Basic-Editor zu öffnen.

  2. Wähle das Arbeitsblatt aus, in dem du den Code anwenden möchtest.

  3. Füge den folgenden Code in das Code-Fenster ein:

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
       On Error GoTo Fehler
       Application.EnableEvents = False
       Select Case Target.Column
           Case 2 To 8
               Target.Offset(0, 1).Select
           Case 9
               Target.Offset(1, -7).Select
       End Select
    Fehler:
       Application.EnableEvents = True
    End Sub
  4. Schließe den Visual Basic-Editor und teste die Eingabe in den Zellen B bis I.


Häufige Fehler und Lösungen

  • Fehler: Der Cursor springt nicht nach rechts.

    • Lösung: Stelle sicher, dass der Code im richtigen Arbeitsblatt-Modul eingefügt wurde. Prüfe auch, ob Makros in Excel aktiviert sind.
  • Fehler: Der Cursor springt auch bei Mausklicks.

    • Lösung: Der gegebene Code reagiert sowohl auf die Enter-Taste als auch auf Mausklicks. Um dies zu verhindern, muss der Code entsprechend angepasst werden, um den Zellinhalt zu überprüfen.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du einfach die Tabulatortaste anstelle der Enter-Taste nutzen, um in Excel von B nach I und dann in die nächste Zeile zu springen. Diese Methode ist einfach und benötigt keine Programmierung.


Praktische Beispiele

  1. Eingabe von Daten:

    • Wenn du in Zelle B2 Daten1 eingibst und die Enter-Taste drückst, springt der Cursor automatisch zu C2.
    • Nach der Eingabe in Zelle I2 springt der Cursor wieder zu B3 für die nächste Zeile.
  2. Verwendung der Tabulatortaste:

    • Markiere den Bereich von B bis I und nutze die Tabulatortaste, um schnell durch die Zellen zu navigieren.

Tipps für Profis

  • Nutze die Application.MoveAfterReturnDirection-Eigenschaft, um das Verhalten des Cursors nach der Eingabe zu steuern. Mit Application.MoveAfterReturnDirection = xlToRight kannst du den Cursor nach der Eingabe immer nach rechts springen lassen.

  • Du kannst den Code so anpassen, dass er in bestimmten Szenarien (z.B. nur bei bestimmten Werten) unterschiedliche Bewegungen ausführt. Experimentiere mit den Offset-Methoden, um die Bewegungen nach Deinen Wünschen zu gestalten.


FAQ: Häufige Fragen

1. Wie kann ich die Enter-Taste in Excel so einstellen, dass sie nach unten springt? Wenn du möchtest, dass der Cursor nach der Eingabe nach unten springt, kannst du den VBA-Code entsprechend anpassen, indem du Target.Offset(1, 0).Select verwendest.

2. Funktioniert dieser Code in allen Excel-Versionen? Ja, die VBA-Lösung sollte in den meisten modernen Excel-Versionen (ab Excel 2007) funktionieren, solange Makros aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige