If nicht schneiden (Ziel, Strecke („A9: A21“)) Ist nichts dann
'erster Angestellter
Wenn Target.Address = „A9“ dann
Wenn Ziel = "" dann
Application.EnableEvents = falsch
Zellen (Target.Row, Target.Column + 1).Value = ""
Zellen (Target.Row, Target.Column + 2).Value = ""
Zellen (Target.Row, Target.Column + 3).Value = ""
Zellen (Target.Row, Target.Column + 4).Value = ""
Zellen (Target.Row, Target.Column + 5).Value = ""
Zellen (Target.Row, Target.Column + 6).Value = ""
Zellen (Target.Row, Target.Column + 7).Value = ""
Beenden wenn
'mehr Code folgt
Application.EnableEvents = richten aus
Beenden wenn
Beenden wenn
|