HERBERS Excel-Forum - das Archiv
Bewerten Sie hier bitte das Excel-Portal
SUMMENFORMEL mit VBA einfügen
Peter

Guten Tag
Ich möchte mit VBA eine Summenformel einfügen.
Selektiert ist irgend eine Zelle in der Spalte H (z.B. H35).
Nun möchte ich in Zelle H35 eine Summenformel einfügen, die den Bereich von H2 bis H34 berücksichtigt.
Wenn H100 selektiert ist, soll die Summenformel H2 bis H99 berücksichtigt.
Wer kann mir helfen?
Danke, Peter

AW: SUMMENFORMEL mit VBA einfügen
hary

Hallo Peter
so? 

Sub n()
ActiveCell = WorksheetFunction.Sum(Range("H2:H" & ActiveCell.Row - 1))
End Sub

gruss hary
AW: SUMMENFORMEL mit VBA einfügen
JoWE

oder variabel: 
Sub summe_bilden()
ActiveCell = WorksheetFunction.Sum(Range(Cells(2, ActiveCell.Column), _
Cells(ActiveCell.Row - 1, ActiveCell.Column)))
End Sub

AW: SUMMENFORMEL mit VBA einfügen
Peter

Hallo miteinander
Vielen Dank für die Codes.
Was muss ich ändern, damit nicht der Wert, sondern die Formel in die Zelle geschrieben wird?
Gruss, Peter
AW: SUMMENFORMEL mit VBA einfügen
JoWE

ActiveCell = "=SUM(" & Range(Cells(2, ActiveCell.Column), Cells(ActiveCell.Row - 1, ActiveCell.Column)).Address & ")"
AW: SUMMENFORMEL mit VBA einfügen
Peter

Super, Vielen Dank!