Hallo zusammen,

Unten stehend mein Code(vermultich nicht optimal gelöst)

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("D6") = "Freies Teil" And IsEmpty(Range("D5")) = False And IsEmpty(Range("D6:G6")) = False And IsEmpty(Range("D7")) = False And IsEmpty(Range("D8:G8")) = False And IsEmpty(Range("D9")) = False And IsEmpty(Range("D10")) = False Then

ActiveSheet.Unprotect "Passwort"

Range("D6:G6").Locked = True

Range("D8:G8").Locked = True

Cells(5, 4).Locked = True

Cells(7, 4).Locked = True

Cells(9, 4).Locked = True

Cells(10, 4).Locked = True

ActiveSheet.Protect "Passwort"

ElseIf Range("D6") <> "Freies Teil" And IsEmpty(Range("D5")) = False And IsEmpty(Range("D6:G6")) = False And IsEmpty(Range("D7")) = False And IsEmpty(Range("D8:G8")) = False Then

ActiveSheet.Unprotect "Passwort"

Range("D6:G6").Locked = True

Cells(5, 4).Locked = True

Cells(7, 4).Locked = True

Range("D8:G8").Locked = True

Cells(9, 4).Locked = True

Cells(10, 4).Locked = True

ActiveSheet.Protect "Passwort"

End If

End Sub

Habe folgendes Problem:

Bei der ertsen If Bedingung funktioniert alles und die Zellen sperren, sobald ich den letzen wert in D10 eingetragen habe.

Beim ElseIf allerdings, werden schon alle Zellen gesperrt, sobald ich in D7 etwas eingebe, obwohl D8 noch leer ist. Hingegen wenn ich zuerst in D8 etwas eingebe, funktioniert die Bedingung des Elseif.

Wäre für etwas Hilfe sehr dankbar!

Mfg

Nils