VBA Summe berechnen,Ausgabe fettgedruckt
27.11.2014 11:29:18
braun
Sub Makro()
'berechnet Summe in Spalte E
e_zeil = Cells(1, "E").End(xlDown).Row
beginn = Cells(e_zeil + 1, "E").End(xlDown).Row
Ende = Cells(beginn + 1, "E").End(xlDown).Row
Cells(Application.WorksheetFunction.Max(Cells(Rows.Count, 5).End(xlUp).Row + 4, 1), 5) = _
WorksheetFunction.Sum(Range(Cells(beginn, "E"), Cells(Ende, "E")))
End Sub
Die Summe steht nicht immer in der gleichen Zeile.
Viele Grüße