In ausgewählte Zellen springen
21.09.2017 13:22:21
Micha
Mit dem Code, den ich beigefügt habe, funktioniert es nur bedingt, da ich in jede
Zelle einen Wert oder Text einfügen muss. Ich möchte aber ausschließlich über
die Enter-Taste in die jeweilige Zelle "springen"; ohne in jeder einen Wert eingeben zu müssen. Kann mir jemand helfen, und meinen Code ändern?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then Cells(Target.Row, 3).Select
If Target.Column = 3 Then Cells(Target.Row, 4).Select
If Target.Column = 4 Then Cells(Target.Row, 5).Select
If Target.Column = 5 Then Cells(Target.Row, 6).Select
If Target.Column = 6 Then Cells(Target.Row, 7).Select
If Target.Column = 7 Then Cells(Target.Row + 1, 2).Select
End Sub
Gruß Micha