sieht jemand den Fehler in meinem Code.
er will einfach nicht die Formel in die Zelle schreiben.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim zelle
zelle = ActiveCell.Address
If Target.Column <> 1 Then Exit Sub
ActiveCell.Offset(0, 14).Select
ActiveCell.FormulaR1C1 = _
"=IF(SUMIF('[WE_2004.xls]2004'!C[5]:C[20]," & zelle & ",'[WE_2004.xls]2004'!C[20])=0,"""",SUMIF('[WE_2004.xls]2004'!C[5]:C[20]," & zelle & ",'[WE_2004.xls]2004'!C[20]))"
'R[3059]C
ActiveCell.Offset(0, -14).Select
End Sub
Danke schon mal
Gruss Peter