Schleife, bestimmte Zelle löschen
25.01.2016 11:26:11
Senseye
ich habe folgendes Problem.
Die Schleife soll in einer Spaltenreihe schauen, ob ein Wert vorhanden ist und dann bestimmte Zeilen darunter sperren.
Mein Code funktioniert nur, wenn ich das Sperren rausnehme und er mir was in die entsprechenden Zeilen reinschreiben soll. Sobald ich es um die Sperrfunktion ergänze kommt eine Fehlermeldung.
Sub TEST()
For i = 1 To 100
If Cells(3, i) = "Y" Then
'Cells(6, i) = "Funktioniert"
Range(Cells(6, i), Cells(7, i)).Locked = True
ActiveSheet.Protect Password:="xxx"
End If
Next
End Sub
Viele Grüße