|
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
|