Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
... siehe #7
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 01.01.2016
Version(en): 2010
18.08.2023, 20:22
(Dieser Beitrag wurde zuletzt bearbeitet: 18.08.2023, 20:24 von Phoeni.)
Das heißt mein Wunsch geht nicht? richtig?
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Dort hab ich doch beschrieben, was geht...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
18.08.2023, 22:29
(Dieser Beitrag wurde zuletzt bearbeitet: 18.08.2023, 22:30 von 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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
(19.08.2023, 10:05)RPP63 schrieb: 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
Registriert seit: 12.10.2014
Version(en): 365 Insider (32 Bit)
Ich gestehe, dass ich Deinen Code nicht gescrollt habe!
Zitat: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
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Registriert seit: 10.04.2014
Version(en): 97-2019 (32) + 365 (64)
Hallöchen,
in #7 schrieb ich
Zitat:Wenn Du E33 überhaupt nicht benötigst
Eine Bemerkung dazu steht noch aus. Was aber, wenn doch ??? Betrifft natürlich nicht nur E33 ...
. \\\|/// Hoffe, geholfen zu haben.
( ô ô ) Grüße, André aus G in T
ooO-(_)-Ooo (Excel 97-2019+365)
Registriert seit: 01.01.2016
Version(en): 2010
Danke für Eure Hilfe, leider konnte ich die Antwort erst jetzt lesen.
Entschuldigt bitte das ich nicht früher reagiert habe.
|