About Us

Melwin

Thanks, this was what I needed :)
--
Melwin

"Melanie Breden" wrote:

Hi Melwin,

"Melwin" schrieb:
The question now is how to make a function with an unlimited amount of
ranges and to be able to uses these ranges in a function.

Could someone please illustrate how to do this by e.g. replicating the Sum
function in excel?

for one range you can use the simple Application.Sum method like this:

Public Function MySum2(rng As Range) As Double
MySum2 = Application.Sum(rng)
End Function

For unlimited ranges declare the argument as ParamArray:

Public Function MySum3(ParamArray varRanges()) As Double
Dim varArea As Variant

For Each varArea In varRanges
MySum3 = MySum3 + Application.Sum(varArea)
Next varArea
End Function

--
Mit freundlichen GrÃ¼ssen
Melanie Breden

Thread Tools	Search this Thread
Show Printable Version	Search this Thread: Advanced Search
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Undefined function	q	Excel Programming	4	February 25th 06 03:47 AM
Make Function Public	Andibevan[_2_]	Excel Programming	3	June 30th 05 04:46 PM
# added to number in function procedure	Erin[_5_]	Excel Programming	2	April 27th 04 11:58 PM
Public/Procedure Variable	Otto Moehrbach[_6_]	Excel Programming	2	February 6th 04 04:58 PM
Declaring Public Procedure	mac	Excel Programming	3	December 3rd 03 05:01 PM

Menu

About Us