In untenstehendem Code brauche ich an stelle der XXXXXXXXXXXXXXXXXXXXX den Befehl für die Deaktivierung des Zellschutzes der Zelle, die in der Spalte Nr. 8 (H) der aktuellen Zeile ist.
Beim Aufzeichnen mit dem Makrorecorder ergibt dies
Selection.Locked = False
Selection.FormulaHidden = False
Wie lautet der Syntax?
Danke für ein Feedback.
Peter
Sub abc()
zNr = 1
Do While zNr > lrow
If .Cells(zNr, 11) <> "" Then
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
else
end if
zNr = zNr + 1
Loop
End With
End Sub