durch Hilfe des Forums habe ich diesen Code bekommen:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
Application.MoveAfterReturnDirection = xlToRight
Case "$A$3"
Application.MoveAfterReturnDirection = xlDown
End Select
End Sub
Da taucht noch eine Frage auf.
Kann ich anstatt Case "$A$1" auch einen Bereich angeben.
Z.B. "A1:B5"
Ich habe schon versucht das zu ersetzen, aber da habe ich
es mir wohl zu einfach gemacht, das funktioniert nicht.
Mit freundlichen Grüssen Frank