Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
824to828
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
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

2 Zellen nach rechts nach Enter

2 Zellen nach rechts nach Enter
29.11.2006 10:12:32
Andreas
Guten Morgen allerseits,
wie kann ich es anstellen, dass ich bei 'Enter' 2 Zellen nach rechts springen kann?
Ich dachte irgendwie 'Application.MoveAfterReturnDirection = xlToRight' und 'ActiveCell.Offset(0, 2).Select' kombinieren, weiß aber nicht, ob das der richtige Ansatz ist.
Kann mir jemand helfen?
Gruß
Andreas

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: 2 Zellen nach rechts nach Enter
29.11.2006 10:21:05
UweD
Hallo
so?
- rechtsclick auf den Tabellenblattreiter unten
- Code einfügen
- Code reinkopieren

Private Sub Worksheet_Change(ByVal Target As Range)
'Beispiel für den eingestellten Bereich
If Not Intersect(Target, Range("A1:B10")) Is Nothing Then
Target.Offset(0, 2).Select
End If
End Sub

Range mußt du noch anpassen
Gruß UweD
(Rückmeldung wäre schön)
AW: 2 Zellen nach rechts nach Enter
29.11.2006 10:43:22
Andreas
Hi Uwe,
danke für Deine Antwort.
Funktioniert bei mir leider nur, wenn ich in eine Zelle auch was eingebe.
Geht das auch, ohne dass ich eine Eingabe machen muss und ohne begrenzten Bereich?
Gruß
Andreas
Anzeige
AW: 2 Zellen nach rechts nach Enter
29.11.2006 11:25:32
EtoPHG
Hallo Andreas,
Ist zwar ein sehr befremdliche Anforderung, aber hier (wie immer ohne Gewähr!):
Code funktioniert bei Einstellung der Optionen - Bearbeiten - Markierung nach dem... - Unten
(Code gehört in DieseArbeitsmappe)

Public sRow, sCol As Single
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If sRow = 0 And sCol = 0 Then
sRow = Target.Row
sCol = Target.Column
Exit Sub
Else
If Target.Row = sRow + 1 And Target.Column = sCol Then
Application.EnableEvents = False
Target.Offset(-1, 2).Activate
sRow = Target.Row - 1
sCol = Target.Column + 2
Application.EnableEvents = True
Else
sRow = Target.Row
sCol = Target.Column
End If
End If
End Sub

Gruss Hansueli
Anzeige
AW: 2 Zellen nach rechts nach Enter
29.11.2006 11:37:13
EtoPHG
Nochmals Hallo,
Verbesserter, verkürzter Code:

Public sRow, sCol As Single
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not (sRow = 0 And sCol = 0) Then
If Target.Row = sRow + 1 And Target.Column = sCol And Target.Column < 254 Then
Application.EnableEvents = False
Target.Offset(-1, 2).Activate
sRow = Target.Row - 1
sCol = Target.Column + 2
Application.EnableEvents = True
Exit Sub
End If
End If
sRow = Target.Row
sCol = Target.Column
End Sub

Allerdings ist zu beiden Lösungen zu bemerken, dass man zwar noch mit der Maus und den Pfeilen navigieren kann, aber nicht mehr mit dem Pfeil nach unten und nicht mehr mit der Maus ein Zelle unter die aktive Zelle. Das zu beheben habe ich aber keine Lust, weil mir die Anforderung eben "very strange" vorkommt.
Gruss Hansueli
Anzeige
AW: 2 Zellen nach rechts nach Enter
29.11.2006 12:00:40
OttoH
Hallo Andreas,
um das Verfahren zu vereinfachen folgende Lösungsidee:
Stalle unter Extras - Optionen - Bearbeiten die Option bei "Markieren nach dem Drücken der Eingabetaste verschieben" auf 'Rechts' und betätige die Enter-Taste zweimal.
Gruß OttoH
AW: 2 Zellen nach rechts nach Enter
29.11.2006 12:20:19
Andreas
Hallo Uwe,
ich weiß nicht, ob Du an meiner Frage noch dran bist, weil der Beitrag geschlossen war.
Wenn nicht, hat sonst irgendjemand eine Lösung für mich?
Gruß
Andreas
AW: 2 Zellen nach rechts nach Enter
29.11.2006 12:22:59
OttoH
Hallo Andreas,
was ist mit meiner Lösung? Taugt die nichts, weil sie kein VBA benötigt?
Gruß OttoH
AW: 2 Zellen nach rechts nach Enter
29.11.2006 12:27:18
Andreas
Hallo zusammen,
tut mir ehrlich leid, habe übersehen, dass Ihr Euch ja schon die Finger wund geschrieben hattet.
(aktualisieren vergessen) :-(
Hansueli, Dein code funktioniert super, danke sehr.
Dir auch danke, Otto, so geht's natürlich auch.
Andreas
Anzeige

303 Forumthreads zu ähnlichen Themen

makro markierung von Zeilen nach oben und unten
Zeilen

Hallo liebe Excel-Gemeinde,
ich weiss dass es schon viele Beiträge zum Thema "Löschen von Zeilen nach einer Bedingung" gibt, aber ich habe nach langer Suche keine Lösung bzw. Ansatzpunkt gefunden.
Problembeschreibung:
Ich brauche ein Makro, dass in der Spalte 2 nach 2 verschiedenen...
12.09.2008 08:37:02
Thread-ID: 1009273
3 Beiträge
Anzeige
Zeilensprung in Textbox mit Enter
uli

Hallo Experten,
habe folgenden Code in einem Klassenmodul:
Private Sub clTextBox_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 13 Or KeyCode = 9 Then If clTextBox.Tag = 95 Then 'Hier vielleicht Anweisung für Zeilensprung!!!! Exit Sub End If If Is...
20.11.2008 11:26:40
Thread-ID: 1026350
3 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Anzeige
Aus Spalte in Zeile schreiben
Eckhard

Hallo Leute, ich benötige Hilfe.
in der ersten Spalte meines Arbeitsblattes stehen Adressdaten (Vorname, Nachname, Strasse, etc) jeweils 7 Felder lang, dann wiederholen sie sich - mit anderem Inhalt. Ich benötige nun ein Makro, das den Inhalt dieser Felder jeweils in eine Zeile schreibt. Da...
15.12.2008 15:57:52
Thread-ID: 1033076
5 Beiträge
SVERWEIS springt ungewollt Zeile nach unten
Christoph

Hallo Zusammen,
ich hänge an einem ganz seltsamen Problem und komme nicht dahinter woran es liegen könnte.
Benutze folgenden S-Verweis:
=WENN(SVERWEIS(E22;'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH)=0;"";SVERWEIS(E22; 'Gebühren-Stammdaten_Berech.'!$D$11:$AH$47;31;FALSCH))...
07.02.2009 18:17:24
Thread-ID: 1048114
3 Beiträge
Inhalt erst in Zeile 5 schreiben
Schmidtler

Hallo,
wie bekomme ich es hin, dass erst Werte ab der 4. Zeile eingetragen werden?
Main Eng. Doc.
LEER
LEER
LEER
LEER
25.02.2009
23.02.2009
OK
40002058
16.12.2008
18.12.2008
LATE
40002059
Mein Makro sieht wie folgt aus:
E...
27.02.2009 12:32:18
Thread-ID: 1054702
2 Beiträge
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Ans ende einer Zeile springen
Felix

Hallo,
wahrscheinlich eine sehr einfache Frage für euch:
Ich möchte gerne per makro einen wert 3 zellen links vom zeilenende kopieren und an einer andere zelle wieder einfügen.
Das ganze zur einer schleife programmieren kann ich (hoffe ich) selbst.
Vielen Dank.
Felix
16.06.2009 13:23:03
Thread-ID: 1081884
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
13
2
4
4
4
2
1
2
3
7
3
3
18
1
4
4
2
2
2
3
4
2
13
11