Zeile einfügen, Datenprüfung nicht übernehmen

Hallo Zusammen
Ich habe folgendes Problem und ich hoffe ihr könnt mir weiter helfen.
Ich habe eine Liste mit mehreren Spalten (A:P). Für die Spalten F, G, und H habe ich eine Datenüberprüfung vorgesehen, welche bei einer bestimmten Werteingabe eine Fehlermeldung an den Benutzer gibt (Gültigkeit). Die Datenüberprüfung habe ich aber nicht in allen Spalten bzw. Zeilen!!!
Das funktioniert auch wie gewünscht.
Wenn jetzt aber eine neue Zeile unterhalb einer Zeile mit Gültigkeit eingefügt wird, wird die Gültigkeit an die neue Zeile übergeben. Jetzt kann der Benutzer in die neue Zeile nichts mehr eingeben.
Das Blatt ist mit einem Passwort geschützt. Die Benutzer kennen das Passwort nicht.
Vielen Dank.
Gruss Judith
Dort können demzufolge keine Werte mehr eingegeben werden.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hoi Hansueli
Danke für deine Rückmeldung.Ich glaube, um deine Fragen zu beantworten muss ich etwas ausholen. Eigentlich wollte ich etwas ganz anderes Realisieren und das mit der Gültigkeit war eher eine Notlösung, wo aber offentsichtlich auch nicht funktioniert.
Eigentlich hatte ich folgende Idee: wenn etwas in der Spalte eingetragen wird (was ist egal) sollten auf dieser Zeile drei Zellen für eine Eingabe gesperrt werden. Ich habe es mit VBA versucht, aber irgendwie hatte ich dann ein durcheinander mit dem Blattschutz. Mit VBA wäre eigentlich die Ideallösung gewesen.
Ich habe dann wie gesagt zur Notlösung gegriffen und die Zellen von Hand per Gültigkeit gesperrt. Ich habe diese Variante gewählt, weil es noch den schönen Nebeneffekt mit der eigenen Fehlermeldung gegeben hat. Ich könnte natürlich auch die Zellen normal im Dialog "Zelle formatieren / Schutz" sperren. Aber da habe ich noch nicht ausprobiert, ob dann die Formatierung beim neue Zeile einfügen wieder mit übergeben wird.
Das nicht alle Zeilen eine Gütigkeitsprüfung haben liegt an dem Sachverhalt selber und natürlich meiner Notlösung. Die Benutzer dürfen zu jeder Zeit die Zelleninhalte der Liste ändern und Zeilen neu hinzufügen dürfen. Ausser eben es wird in der einen Spalte etwas eingetragen. Dann ist der Auftrag abgeschlossen und nicht mehr änderbar.
Gerne kann ich auch ein Beispiel hochladen.
Grüsse Judith

Private Sub Worksheet_Change(ByVal Target As Range) Dim rc As Range If Target.Column = 5 Then ' Eingaben in Spalte 5 (E) werden geprüft Application.EnableEvents = False ' Blattschutz aufheben Unprotect "myPassword" For Each rc In Target ' Zellen in Spalte 6-8 (F,G,H) in dieser Zeile werden gesperrt Range(Cells(rc.Row, 6), Cells(rc.Row, 8)).Locked = Not IsEmpty(rc) Next rc ' Blattschutz wieder einschalten Protect "myPassword" Application.EnableEvents = True End If End Sub

Private Sub Worksheet_Activate() Dim rc As Range Application.EnableEvents = False ' Blattschutz aufheben Unprotect "myPassword" For Each rc In Range(Cells(2, 5), Cells(Rows.Count, 5).End(xlUp)) Range(Cells(rc.Row, 6), Cells(rc.Row, 8)).Locked = Not IsEmpty(rc) Next rc ' Blattschutz wieder einschalten Protect "myPassword" Application.EnableEvents = True End Sub

Private Sub Worksheet_Activate() Dim rc As Range Application.EnableEvents = False ' Blattschutz aufheben Unprotect "myPassword" On Error Resume Next For Each rc In Range(Cells(2, 15), Cells(Rows.Count, 15).End(xlUp)) Range(Cells(rc.Row, 6), Cells(rc.Row, 8)).Locked = Not IsEmpty(rc) If Err.Number > 0 Then MsgBox "In Zeile " & rc.Row & " scheint ein Fehler vorzuliegen!", vbCritical Err.Clear End If Next rc On Error GoTo 0 ' Blattschutz wieder einschalten Protect "myPassword" Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Zeile einfügen, Datenprüfung nicht übernehmen

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zeile einfügen, Datenprüfung nicht übernehmen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread