Sub
Sheets_clean()
Dim
Destination
Dim
ZellRange
Destination = Array(
"xxxx"
,
"yyyyy, "
tttttttttt
","
WWWW")
Range(
"A3:C42,F3:U42,G44:U44;H44:U44"
).ClearContents
For
Each
ZellRange
In
Dest
Next
Sheets(
"Controll"
).Range(
"A23:B27,A31:B35, F23:G27,F31:G35,K23:L27"
).ClearContents
Sheets(
"Forrm DE"
).Range(
"C30:D30,C32:D32,G30,G32"
).ClearContents
Sheets(
"FOR BE"
).Range(
"C30:D30,C32:D32,G30,G32"
).ClearContents
End
Sub