Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
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

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

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige