VBA Nachfrage - Erweiterung

[schauan]

... siehe #7

[Phoeni]

Das heißt mein Wunsch geht nicht? richtig?

[schauan]

Dort hab ich doch beschrieben, was geht...

[Kuwer]

Hallo,

Du hast einen Unterbruch im Code, der jetzt so übernommen wurde, da ich ja nicht weiß, welche Zelle richtig ist.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(False, False) = "D16" Then Range("E31").Activate
    If Target.Address(False, False) = "E31" Then Range("E32").Activate
    If Target.Address(False, False) = "E32" Then Range("F32").Activate
    If Target.Address(False, False) = "F32" Then Range("E18").Activate
    If Target.Address(False, False) = "E18" Then Range("M35").Activate
    If Target.Address(False, False) = "M35" Then Range("K36").Activate
    If Target.Address(False, False) = "K36" Then Range("M37").Activate
    If Target.Address(False, False) = "M37" Then Range("K38").Activate
    If Target.Address(False, False) = "K38" Then Range("L38").Activate
    If Target.Address(False, False) = "L38" Then Range("D16").Activate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(False, False) = "D17" Then Range("E31").Activate
    If Target.Address(False, False) = "E32" Then Range("E32").Activate
    If Target.Address(False, False) = "E33" Then Range("F32").Activate
    If Target.Address(False, False) = "F33" Then Range("E18").Activate
    If Target.Address(False, False) = "E19" Then Range("M35").Activate
    If Target.Address(False, False) = "M36" Then Range("K36").Activate
    If Target.Address(False, False) = "K37" Then Range("M37").Activate
    If Target.Address(False, False) = "M38" Then Range("K38").Activate
    If Target.Address(False, False) = "K39" Then Range("L38").Activate
    If Target.Address(False, False) = "L39" Then Range("D16").Activate
End Sub

Gruß, Uwe

[RPP63]

Moin!
So etwas regelt man nicht mittels VBA!
Schließlich, wie Du richtig bemerkt hast, kann das Change-Event natürlich nur bei einer Änderung anspringen.

Markiere alle die anzuspringenden Zellen,
Zellenformat, Schutz, Haken bei gesperrt entfernen,
Setze einen Blattschutz ohne Kennwort,
Haken bei "Benutzer dürfen gesperrte Zellen auswählen" entfernen

Jetzt springst Du mittels Tab oder Enter zwischen den "entsperrten" Zellen.

Gruß Ralf

[Kuwer]

So etwas regelt man nicht mittels VBA!
Schließlich, wie Du richtig bemerkt hast, kann das Change-Event natürlich nur bei einer Änderung anspringen.

Weil Du das jetzt so beschlossen hast, haben sich alle daran zu halten, Ralf? Dass das mit SelectionChange funktioniert, hast Du übersehen?

Gruß, Uwe

[RPP63]

Ich gestehe, dass ich Deinen Code nicht gescrollt habe!

Weil Du das jetzt so beschlossen hast, haben sich alle daran zu halten, Ralf?

Ich habe das nicht beschlossen, sondern "nur" meine diesbezügliche Meinung geäußert, Uwe.
Und ja, ich bin mir sehr sicher, dass es sich hier mal wieder um ein xy-Problem handelt.

Außerdem bin ich mir sicher, dass Phoeni diesen Ablauf mittels Blattschutz noch nicht kannte.
Falls doch: auch nicht schlimm!
Schließlich gibt es hier auch Querleser, denen Alternativen vielleicht gelegen kommen.

Gruß Ralf

[schauan]

Hallöchen,

in #7 schrieb ich

Wenn Du E33 überhaupt nicht benötigst

Eine Bemerkung dazu steht noch aus. Was aber, wenn doch ??? Betrifft natürlich nicht nur E33 ...

[Phoeni]

Danke für Eure Hilfe, leider konnte ich die Antwort erst jetzt lesen. 
Entschuldigt bitte das ich nicht früher reagiert habe.