ich benötige Eure Hilfe: Ich möchte per Makro unter einer bestimmten Bedingung den Zellschutz aufheben. Mein Code lautet:
Code: Alles auswählen
for n=1 to max
if Bedingung then
oZelle=outSheet.getCellByPosition(n,m)
oZelle.CellBackColor=RGB(255,0,0)
oZellschutz=oZelle.CellProtection
oZellSchutz.isLocked=False
oZelle.CellProtection=oZellSchutz
end if
next n
Vielen Dank für Eure Mühe
Pit