Ich habe eine Exceltabelle mit 11 Spalten und 10 Zeilen für unseren Sportverein erstellt(1.Zeile=Überschrift;1.Spalte=Namen) und möchte gerne, wenn ich in Spalte A11 eine Zahl mit ENTER bestätige, den Corsur nach B2.Wir haben aber nur einen Nummernblock zur Verfügung.
Zellwechsel nach Enter
Hallo Grußlose®,
ändere falls nötig in Optionen die Markierungsänderung bei
Zellenterung auf rechts ab.
Rechtsklick unten auf den Blattnamen, „code anzeigen“ anklicken,
im Editor nachstehenden Code reinkopieren, Editor schließen.
Gruß
Reinhard
Option Explicit
Private Sub Worksheet\_SelectionChange(ByVal Target As Range)
Set Target = Intersect(Target, Columns(12))
If Target Is Nothing Then Exit Sub
Application.EnableEvents = False
Cells(Target.Row + 1, 2).Select
Application.EnableEvents = True
End Sub
Hallo Reinhard, entschuldige bitte meine erste Anfrage ohne Gruß. Ich heiße Uwe. Deinen Tip mit der Option Enter nach rechts habe ich befolgt.
Der Corsur springt von z.b. B2 gleich nach C2. Ich möchte aber erst
die Spalte B von oben nach unten mit Zahlen füllen und dann soll der Corsur nach oben in die nächste Spalte.
Kann ich dir das Blatt vielleicht zusenden ?
Bis bald Neuling Uwe.
Hi Uwe,
du brauchst eigentlich nur die Einstellungen in Excel ändern:
unter „Excel Optionen“ -> Bereich „Erweitert“ -> „Markierung nach drücken der Eingabetaste verschieben“ aus dem Dropdown-feld die gewünschte Richtung (bei Dir dann also „unten“) auswählen.
und ein ganz heisser tipp:
nehmen wir an Du möchtest die Zellen B1 bis D5 zuerst in Spalte B von oben nach unten und dann in Spaste C weitermachen:
den Zellbereich markieren und dann die Eingaben machen. Dann springt der Cursor nähmlich nach Zelle B5 automatisch in Zelle C1 etc.
ich hoffe ich konnte mich verständlich ausdrücken!
Gruß
Fronk
Hi Fronk, danke für Tip mit Zellmarkierung, hat geklappt. In erweiterte Optionen auf runter gestellt.
Bis bald Neuling Uwe.
Hallo Uwi,
Der Corsur springt von z.b. B2 gleich nach C2. Ich möchte aber
erst
die Spalte B von oben nach unten mit Zahlen füllen und dann
soll der Corsur nach oben in die nächste Spalte.
entschuldige bitte, du hast alles ausreichend geschrieben,
ich hab wieder mal viel zu flüchtig gelesen
Na gut machen wir das Beste draus
Der Code den ich schrieb ist ausgelegt in Tabellen
zeilenweise Werte einzugeben. Mit letzem Wert der Zeile in
Spalte 11 = L.
D.h. wenn du mal eine Tabelle zeilenweise ausfüllen mußt/willst
und füllst erst Ax aus, Enter, Bx, Enter, Cx, Ebter, usw.
und machst Enter nach Werteingabe in Lx so wird danach
die Zelle in A eine Zeile darunter angehüpft.
Insofern, wenn du das mal brauchen könntest irgendwann
speichere dir den Artkelbaum ab.
Funktionslogik des Codes ist, nach jeder Zelländerung wird die Zelle
rechts davon angehüpft, deshalb die Änderung in Optionen.
Der Code überwacht die Spalte 12 = M.
Durch Enter in Lx wird ja Mx angesprungen, der Code reagiert
automatisch und hüpft auf A eine Zeile tiefer.
Willst du dieses Verhalten bei einer anderen Spalte mußt du nur
die 12 im Code entsprechend abändern.
Kann ich dir das Blatt vielleicht zusenden ?
In dem Fall nicht nötig. Wenn du mal ein Problem haben solltest
wo eine Beispielmappe hilfreich ist so lade die mit
file-upload hoch, genauer Link in FAQ:2606
Fronk hat dir ja eine Alternative ohne Vba genannt, wenn du
mit der gut klarkommst isses ja okay.
Ansonsten sag Bescheid für angepassten Code.
PS: Aus Interesse, meine liebe Freundin Gudrun sagt dazu
Ahnungslosigkeit *grien* wie grad im Wordbrett, du hast
geschrieben:
„Wir haben aber nur einen Nummernblock zur Verfügung“
Wie soll ich mir das vorstellen?
Für mich deute ich Nummernblock als das was in Standard
Tastaturen rechts als Block aus 17 Tasten separiert ist.
Gruß
Reinhard