20.03.2023, 11:20 (Dieser Beitrag wurde zuletzt bearbeitet: 20.03.2023, 12:19 von Sascha1986.)
Guten Morgen,
ich habe eine Frage zu einem Projekt. Ich möchte gerne ein Pflichfeld (B6) erstellen. Vielleicht kann sich das mal jemand anschauen. Da erst gedruckt werden muss und dann gespeichert wird wäre gut wenn man erst gar nicht in die nächste Zeile B7 springen kann.
20.03.2023, 12:02 (Dieser Beitrag wurde zuletzt bearbeitet: 20.03.2023, 12:03 von AlterDresdner.)
Hallo Sascha, dein WUnsch und ANliegen schreit nach einer Userform, in der die notwendigen ANgaben ausgewählt (Tabelle3 enthält wohl die Listen) und eingegeben/überprüft werden. Dann auf Ok und alles läuft locker ab.> Wird dei Datei jedes Mal neu geöffnet oder ist sie immer offen? Sollte die notwendige Listenbearbeitung durch ein Passwort geschützt werden? Gruß der ALteDresdner
Tabelle 1 ist immer geöffnet und der Mitarbeiter schreibt seine Daten in die Felder B4 - B7 und B6 soll ein Pflichtfeld sein was unbedingt ausgefüllt werden muss. über VBA habe ich schon den automatismus da eine Fortlaufende nummer generiert wird (in B3) und sämtliche Daten beim abspeichern immer in eine neue Zeile in Tabelle 3 geschrieben wird. In Tabelle 2 werden nur die Daten geholt die in Tabelle 1 B4 + B6 + B7 als Dropdown ausgewählt werden können.
also Wenn ich Tabelle 1 Speicher werden diese Daten automatisch in Tabelle 3 gespeichert. Das soll auch so bleiben.
Hallo Sascha, geht im Prinzip. Über das Worksheet_Change-Ereignis mit Target B6 kann man den Blattschutz so regeln, dass keine anderen Felder gewählt werden können. Trotzdem möchte ich Dir die m.E. sinnvollere Lösung anbieten, siehe Anhang. Die Userform überwacht z.Zt. nur den Packer, auch das Eintragen und Speichern passiert noch nicht. Ebenso die automatische Ergänzung der Listen in Blatt Liste. Wird nachgerüstet, wenn Du das insgesamt so haben willst, macht nämlich etwas Arbeit. Gruß
Private Sub Worksheet_Change(ByVal Target As Range) Const Pwd = "" If Target.Address <> "$B$6" Then Exit Sub ActiveSheet.Unprotect Password:=Pwd Range("B3:B8").Locked = (Cells(6, 2) = "") Range("B6").Locked = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Pwd End Sub
im Codeteil von Tabelle1 erfüllt, Pwd nach Belieben ändern.
