Privates VorWorksheet_Change (ByVal Ziel als Strecke)
Auf Störung Goto- errHandler
Application.EnableEvents = falsch
Wenn Target.Column = 12 und Target.Count = 1 dann
Anruf UnProtect
Wenn Target.Value <> "" dann rudert (Target.Row). Verschlossen = ausrichten
Anruf schützen sich
Sonst
Beenden wenn
fertig:
Application.EnableEvents = richten aus
Unterseeboot herausnehmen
errHandler:
MsgBox Err.Number u. „-“ u. Err.Description
Zusammenfassung beendet
Enden-Unterseeboot
|