wie bekommt man das mit VBA-Schleife hin:
Sobald der Wert 3 in Spalte A gefunden wird, sperre alle Zellen in den Zeilen darüber und beende die Suche.
Wäre schön, wenn das ginge.
Vielen Dank.
Gruss, Celine.
Sub test()
Dim z As Range
Set z = Range("A:A").Find(What:=3, LookAt:=xlWhole)
If Not z Is Nothing Then
ActiveSheet.Unprotect Password:="123"
Range("1:" & z.Row - 1).Locked = True
ActiveSheet.Protect Password:="123"
End If
End Sub