Hallo Susanne
habe zufaellig noch mal in den Thread reingeschaut. Aendere bitte deinen Code. Setze den Befehl "Unprotect" einfach hinter die beiden Exit Sub Befehle! Sonst springst du aus dem Programm heraus ohne den Blattschutz wieder einzuschalten!
If InStr(Target.Address, ":") Then Exit Sub
If Target.Column <> 2 Then Exit Sub
mfg Nobody
|