Summe mittels Start- und End-Range
22.05.2014 09:58:08
Peter
Wie kann ich per VBA die Summe ermitteln eines Bereiches, dessen erste Zelle der Range-Variable rngFirstCell und die letzte Zelle der Rnage-Variable rngLastCell zugewiesen ist?
Gruss, Peter
Option Explicit
Public Function ps_SumU() As Double
Dim rngFirstCell As Range, rngLastCell As Range
Set rngFirstCell = Application.Caller.Offset(1, 0)
Set rngLastCell = Cells(Rows.Count, Application.Caller.Column).End(xlUp)
? ps_SumU = Application.Sum(rngFirstCell.Address(0, 0) & ":" & rngLastCell.Address(0, 0))
End Function
Anzeige