Zellen Sperren Wenn ....
12.01.2010 19:42:10
Heinz H
Hallo Leute
Habe unteres Makro erstellt.
Es sollte in A6:A35 suchen ob eine Zelle leer ist dann sperren bis L
Also zB. A6="" Dann sperren A6:L6
Ich bekomme immer "Locked-Eigenschaften des Range Objektes kann nicht festgelegt werden"
Bitte um Hilfe
Heinz
'Zellen Sperren wenn Spalte A leer
Sub Sperren()
Dim i As Integer
For i = 6 To 35
If Cells(1, i).Value = "" Then
Range("A" & i & "").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End If
Next
End Sub