das folgende Makro habe ich schom im Archiv gefunden.
Es sucht die letzte freie Zelle in Spalte K und bildet dann die Summe.
Leider fügt es das Resultat in, nicht aber die Formel.
z.B. es sollte z.B. stehen =SUMME(K2:K30)
Danke für eine Lösung.
Dave
Sub MySum()
Dim lnglast As Long
lnglast = Cells(Rows.Count, 11).End(xlUp).Row
Cells(lnglast + 1, 11) = Application.Sum(Range(Cells(2, 11), Cells(lnglast, 11)))
End Sub