Clever-Excel-Forum

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

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

Das ist nicht das was ich suche, sorry.

Ohne SrollArea, nur mit Blattschutz (ohne Kennwort)

Gruß Ralf

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.

Hallo Frank,

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

Gruß Uwe

Code:
Sub Macro1()

    With Application

        .MoveAfterReturn = True

        .MoveAfterReturnDirection = xlToRight

    End With

End Sub

Wo soll ich den Code einfügen ?

FrankyHB

LCohen

FrankyHB

RPP63

FrankyHB

Kuwer

snb

FrankyHB