Office: Nach Eingabe 'Enter' springe zu Zelle...-FERTIG

Hi,

ich brauche eure Hilfe,
möchte jetzt das in bestimmten Tabellen nach einer Eingabe in der ganzen Spalte B
nach dem 'Enter' drücken eine andere Zelle (+1Zeile & -1Spalte) angewählt wird.

z.B.

in Tabelle2

schreibe in Zelle B10 "123" und drücke 'Enter', dann soll die Zelle A11 ausgewählt werden.

Die Eingabe änder nichts an der Auswahl, es soll lediglich immer +1Zeile -1Spalte sein.

Da dies jedoch nicht in jeder Tabelle passieren soll, sondern nur die ich auswähle,
dachte ich könnte das Problem so lösen das ich mit VBA in den einzelnen Tabelle den Code einfüge und dies wäre erledigt.

Gruß Emi

 

Hallo Max,

unter der Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column >= 2 Then Cells(Target.Row + 1, Target.Column - 1).Select
End Sub

Gruß Hajo

 

Danke Hajo, funktionert einwandfrei. :mrgreen:

Eine Frage habe ich jedoch,

Code:

...>= 2...

weshalb steht das größergleich 2 drin? :roll:

Gruß Emi

 

Hallo Emi,

da man in Spalte 1 nicht um 1 nach links gehen kann. Bei mir jedenfalls.

Gruß Hajo

 

Bermerke jetzt das Ab Spalte B dies passiert,
gewollt war nur bei Spalte B.

Edit:

:-| Hab mal daraus =2 gemacht.
Jetzt passierts nur in Spalte B.

Hehe, es funktioniert.

 

Eine Änderung wäre nicht schlecht, wenn in der nächsten Zeile schon etwas drin steht, dann soll er nicht +1Zeile -1Spalte, sondern nur +1Zeile.

z.B.:

____A____B____C_____...
1..............123
2
3..............456
4
...

B2 wird "098" Eingetragen und durch 'Enter' soll er dieses mal zu B3 springen, denn hier steht schon etwas drin.
Nach der Änderung in B3 soll er wiederum in A4 springen da in B4 nichts drin steht.

Gruß Emi

 

Hallo Emi,

dann so,

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 2 Then Cells(Target.Row + 1, Target.Column - 1).Select
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 2 And Target <> "" Then Cells(Target.Row + 1, Target.Column - 1).Select
End Sub

Gruß Hajo

 

Hallo Emi,

beachte aber eine ausgefülte zele kannst Du nicht nochmal auswählen.

Gruß Hajo

 

Mmmh, beim neuen Teil hat sich etwas geändert, jetzt kann ich in Spalte B garkeine Änderungen durchführen, da er immer sofort zu nächsten Zeile in Spalte A springt.

Liegt das vielleicht daran das beim Private Sub jetzt Worksheet_ SelectionChange dabei steht?

ohne Selection kommt bei Komplilieren dann die Fehlermeldung das Worksheet_Change ein Mehrdeutig Name ist.

Ohne den ersten Teil läuft es wie gehabt und springt auch +1 -1 weiter obwohl in der Zelle untendrunter etwas drin steht.

Gruß Emi

 

Hallo Emi,

es darf nur ein Private Sub Worksheet_Change(ByVal Target As Range) geben und das mit den erneuten auswählen hatte ich ja schon geschrieben.
Versuche es so.

Code:

Option Explicit

Dim BoAuswahl As Boolean

Private Sub Worksheet_Change(ByVal Target As Range)
    BoAuswahl = True
    If Target.Column = 2 Then Cells(Target.Row + 1, Target.Column - 1).Select
    BoAuswahl = False
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column = 1 And Target <> "" And BoAuswahl = True Then Cells(Target.Row + 1, Target.Column).Select
End Sub

Gruß Hajo

 

:-) Jetzt sieht so aus als würde es funktionieren. Jetzt muß ich nur noch den Rest wieder zum laufen bringen.

Danke

Gruß Emi