Formula bzw. FormulaLocal

Sub Makro6()
Sheets("Übertrag").Range("CF2").Formula = "=$A$4+$A$10" 'Geht ohne Probs.............
Sheets("Übertrag").Range("CF2").Formula = "=WENN(ZÄHLENWENN(H2:M2;$CF$1)+ZÄHLENWENN(W2:AB2;$CF$ _
1)+ZÄHLENWENN(AL2:AQ2;$CF$1)+ZÄHLENWENN(BA2:BF2;$CF$1)+ZÄHLENWENN(BP2:BU2;$CF$1)=0;"";ZÄHLENWENN(H2:M2;$CF$1)+ZÄHLENWENN(W2:AB2;$CF$1)+ZÄHLENWENN(AL2:AQ2;$CF$1)+ZÄHLENWENN(BA2:BF2;$CF$1)+ZÄHLENWENN(BP2:BU2;$CF$1))" 'Geht nicht.............
Sheets("Übertrag").Range("CF2").FormulaLocal = "=WENN(ZÄHLENWENN(H2:M2;$CF$1)+ZÄHLENWENN( _
W2:AB2;$CF$1)+ZÄHLENWENN(AL2:AQ2;$CF$1)+ZÄHLENWENN(BA2:BF2;$CF$1)+ZÄHLENWENN(BP2:BU2;$CF$1)=0;"";ZÄHLENWENN(H2:M2;$CF$1)+ZÄHLENWENN(W2:AB2;$CF$1)+ZÄHLENWENN(AL2:AQ2;$CF$1)+ZÄHLENWENN(BA2:BF2;$CF$1)+ZÄHLENWENN(BP2:BU2;$CF$1))" 'Geht  auch nicht.............
End Sub

Was tun? :-(
Gruß Sonnenpeter