Private
Sub
Worksheet_SelectionChange(
ByVal
Target
As
Range)
ActiveSheet.Unprotect Password:=
""
If
Target.Address =
"$E$29"
Then
Absenden
If
Target.Address =
"$C$29"
Then
FormulardatenLoeschen
If
Target.Address =
"$G$29"
Then
Bestaetigung
ActiveSheet.Protect Password:=
""
End
Sub