Sub Sperren_neu()
Dim finden As Range
Set finden = Range("E4:NF4").Find(what:="36.KW")
finden.Offset(3, 0).Resize(23, 6).Locked = True
ActiveSheet.Protect Password:=2321, DrawingObjects:=False
End Sub
so? dann bekomme ich eine Fehlermeldung Laufzeitfehler 1004
Bin leider nur Anfänger und hab mir das meiste selbst irgendwie beigebracht. Deswegen weiß ich grad nicht weiter.
|