Coursersprung festlegen

[FrankyHB]

Ich brauche mal wieder Hilfe,

Ich habe in einem geschützten Arbeitsblatt die Zellen B4:E4 in der ich Werte eintragen kann.

Nach der Eingabe in Zelle B4 soll der Courser von  B4 nach C4 springen,
von C4 nach D4, von D4 nach E4 und wieder zurück nach B4.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address(False, False) = "B4" Then Range("C4").Activate
If Target.Address(False, False) = "C4" Then Range("D4").Activate
If Target.Address(False, False) = "D4" Then Range("E4").Activate
If Target.Address(False, False) = "E4" Then Range("B4").Activate

Sub End

Das klappt mit diesem Code auch ganz gut.

Sobald ich jedoch keinen neuen Wert eingebe, wird die Reihenfolge nicht mehr eingehalten.

Kann mir jemand weiterhelfen das die Reihenfolge auch ohne neue Werteingabe bestehen bleibt?

Gruß Frank

[LCohen]

Du kannst in den Eigenschaften des Blatts auch ScrollArea: B4:E4 einstellen und das Blatt anschließend schützen (nur ent- und ge-sperrte Zellen auswählbar, sonst nichts). Dann funktioniert das so mit ENTER. Allerdings kannst Du mit Cursor rechts und links noch anwählen, aber nicht mehr im Kreis.

Blattreiter Rechtsklick, Code anzeigen, Eigenschaften, ScrollArea

[FrankyHB]

Das ist nicht das was ich suche, sorry.

[RPP63]

Ohne SrollArea, nur mit Blattschutz (ohne Kennwort)

Gruß Ralf

[FrankyHB]

Hallo Ralf,

das klappt sehr gut wenn nur diese 4 Zellen nicht gesperrt sind, wenn aber noch andere Zellen auf dem Arbeitsblatt frei sind, dann klappt die Reihenfolge leider nicht mehr.

[Kuwer]

Hallo Frank,

selektiere die 4 Zellen. Dann hast Du genau das gewünschte Verhalten.

Gruß Uwe

[snb]

Code:

Sub Macro1()
    With Application
        .MoveAfterReturn = True
        .MoveAfterReturnDirection = xlToRight
    End With
End Sub

[FrankyHB]

Wo soll ich den Code einfügen ?