About Us

FrankJO

Thanks, Joel! That did the trick.

"Joel" wrote:

It works, but you have to highlight the correct number of cells on the
worksheet to get it to work. Also use Shift+Control+Enter

"FrankJO" wrote:

Update: I changed the code to what appears below, and I am no longer getting
a value error, but it is only returning the first item in the array, when it
should return all items in the array to a range of cells. Ideas?

Revised Code:

Public Function ExtractFundID(ByVal HoldingNameRange As Range) As Variant
Dim HoldingName As Range
Dim IDOutputList As Range
Dim IDOutputArray() As String
Dim OutputIndex As Integer
Dim IDString As String

OutputIndex = 0

For Each HoldingName In HoldingNameRange
IDString = ""
For Digi = 1 To Len(HoldingName)
If IsNumeric(Mid(HoldingName, Digi, 1)) Then
Chara = Mid(HoldingName, Digi, 1)
IDString = IDString & Chara
End If
Next Digi

OutputIndex = OutputIndex + 1
ReDim Preserve IDOutputArray(OutputIndex)
IDOutputArray(OutputIndex - 1) = IDString

Next HoldingName

ExtractFundID = IDOutputArray

End Function

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
Redimming an array dynamically assigned from range (how to redim first dimension of a 2-D array? /or/ reverse the original array order)	Keith R[_2_]	Excel Programming	3	November 13th 07 04:08 PM
Returning an array from a multi-dimensional array	Chris	Excel Programming	2	January 3rd 07 06:01 AM
Returning Array ...	nicgendron[_9_]	Excel Programming	1	August 18th 05 05:30 PM
Returning array ...	nicgendron[_7_]	Excel Programming	2	August 18th 05 12:27 PM
Returning an array from a UDF to a column range	Ron Davis	Excel Programming	1	October 31st 03 01:12 AM

Menu

About Us