Zellen oberhalb der Eingabe sperren
Don
Über folgende Formel lasse ich mir das zugehörige Feld nach der Eingabe sperren.
D.h. Wenn in z.B. o9 ein manueller Eintrag vorgenomen wurde, wird die Zelle o9 gesperrt.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Set Target = Intersect(Target, Range("o5:o500"))
If Target Is Nothing Then Exit Sub
Me.Unprotect
For Each rngCell In Target
rngCell.Locked = rngCell ""
Next
Me.Protect
End Sub
Jetzt die für mich etwas knifflige Frage - wie integriere ich in meinen Anfänger Code eine Prüfung die mir nach Eingabe/Sperrung von o9 alle Zellen oberhalb von o9 sperrt?
Ich meine damit:
Manuelle Eingabe bei o5 Manuelle Eingabe bei o6 Keine Eingabe bei o7
Keine Eingabe bei o8
Manuelle Eingabe bei o9 Meine if-Schleifen Versuche haben mir bis jetzt leider nur einen Wust an Fehlermeldungen ausgespuckt.
Danke schon mal im Voraus! Gruß, vom Don