Excel: dynamische Summenzeile

Sub Summe_bilden()
	Dim i As Long
	Dim adress1, adress2 As String
	Range(”E2″).Select ‘hier deine spalte und zelle eintippen
	adress1 = ActiveCell.Address

	i = 0
	While ActiveCell.Value <> ""
		ActiveCell.Offset(1, 0).Select 'springst ne zeile runter
		i = i + 1
	Wend 'zählschleife is fertig, wenn ne zelle leer ist.

	ActiveCell.Offset(-1, 0).Select 'springst ne zeile hoch, nimmst die adresse mit:
	adress2 = ActiveCell.Address
	ActiveCell.Offset(3, 0).Select 'springst 2 zeile runter, hier kommt summe rein:

	ActiveCell.Value = "=SUM(" & adress1 & ":" & adress2 & ")"
End Sub