Office: VBA - Zeilenspringen

Hallo,
wie löse ich das Problem:
Ich muss nach der Eingabe automatisch von
A1 auf B1 springen und von
B1 auf A2 und von
A2 auf B2 usw.....

Bitte um Hilfe.. ich hab schon alle möglichen Codes probiert aber bin wohl zu doof... :-(
Weihnachtliche Grüße

 

Hallo,

wenn du außer den Spalten A und B alles mit einem Schreibschutz versiehst, geht das mit der Tab-Taste.

 

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf Deine Tabelle, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Der Code wirkt nur in dieser Tabelle.

Code:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
        Case 1
            Target.Offset(0, 1).Select
        Case 2
            Target.Offset(1, -1).Select
    End Select
End Sub