Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen sperren zu früh
15.11.2022 15:18:48 Nils
NotSolved
15.11.2022 17:30:02 xlKing
NotSolved

Ansicht des Beitrags:
Von:
Nils
Datum:
15.11.2022 15:18:48
Views:
114
Rating: Antwort:
  Ja
Thema:
Zellen sperren zu früh

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellen sperren zu früh
15.11.2022 15:18:48 Nils
NotSolved
15.11.2022 17:30:02 xlKing
NotSolved