bei E5 Enter auf C6

[PetrolMaxxe]

Hallo Thomas,

das sollte deine Wünsche erfüllen.

ins Modul des Tabellenblattes:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E5:E34")) Is Nothing Then
        Target.Offset(1, -1).Activate
    End If
End Sub

Gruß Uwe