In erste Spalte nächste Zeile springen + Makro mit Enter starten

Question

Hallo,

ich habe zwei Spalten in einer Tabelle, die ich schnell befüllen möchte: A1, B1, dann A2, B2, dann A3, B3 usw.

Für den Sprung in die nächste Zeile erste Spalte habe ich nun das Makro gefunden:

Sub jumpnext()
    Range("A" & ActiveCell.Row + 1).Select
End Sub

--
Nur wie schaffe ich es jetzt, dass nach Eingabe der B-Zelle + Enter das Makro ausgelöst wird statt dass ich mit Enter erst einmal in die darunterliegende B-Zelle komme? Also dass mit Enter dann direkt das Makro für den Sprung augelöst wird?

Viele Grüße
Uli

Answer 1

Hi Uli,

würde ich so machen: Den nachfolgenden Code in das Tabellenmodul, das deiner Tabelle entspricht.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A:A")) Is Nothing Then
    Target.Offset(0, 1).Select
  ElseIf Not Intersect(Target, Range("B:B")) Is Nothing Then
    Target.Offset(1, -1).Select
  End If
End Sub

PS: Falls du mal eine Tabelle mit Drei Spalten brauchst, mach aus dem A:A einfach ein A:B und aus B:B dann C:C  und aus der -1 eine -2 etc. Im Moment kannst du den Code aber einfach übernehmen.

Gruß Mr. K.

Answer 2

Hallo Mr. K.,

das ist großartig - es macht genau das, was es soll :-)

Vielen Dank!!

Uli