Public
Sub
AddFormel()
Range(
"AP2"
).FormulaLocal =
"=ZählenWennSichtbar($E2:$AM2; "
""
")"
Range(
"AO7:AO39"
).FormulaLocal =
"=ZählenWennSichtbar($E7:$AM7; 1)"
Range(
"AS7:AS39"
).FormulaLocal =
"=ZählenWennSichtbar($E7:$AM7; "
""
")"
Range(
"AQ41:AQ346"
).FormulaLocal =
"=ZählenWennSichtbar($E41:$AM41; 1)"
Range(
"AS41:AS346"
).FormulaLocal =
"=ZählenWennSichtbar($E41:$AM41; 2)"
Range(
"AU41:AU346"
).FormulaLocal =
"=ZählenWennSichtbar($E41:$AM41; 3)"
Range(
"AW41:AW346"
).FormulaLocal =
"=ZählenWennSichtbar($E41:$AM41; 4)"
Range(
"AY41:AY346"
).FormulaLocal =
"=ZählenWennSichtbar($E41:$AM41; "
""
")"
Range(
"AO16:BB16"
).ClearContents
Range(
"AO22:BB23"
).ClearContents
Range(
"AO42:BB42"
).ClearContents
Range(
"AO75:BB75"
).ClearContents
Range(
"AO6:BB6"
).Copy
Range(
"AO23:BB23"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO33:BB33"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO37:BB37"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO40:BB40"
).Copy
Range(
"AO60:BB60"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO71:BB71"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO76:BB76"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO94:BB94"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO112:BB112"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO130:BB130"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO148:BB148"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO166:BB166"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO184:BB184"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO202:BB202"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO220:BB220"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO238:BB238"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO256:BB256"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO274:BB274"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO292:BB292"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO310:BB310"
).PasteSpecial Paste:=xlPasteValues
Range(
"AO329:BB329"
).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode =
False
End
Sub