Saschs Blog
neuster   |   archiv   |   fotos   |   orte   |   suche   |   über
Kommentare deaktiviert

Excel: dynamische Summenzeile

Veröffentlicht: 23. April 2006

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