CODEWITHSUNDEEP
excelvba
Carlos Alberto Ortíz Aux
Carlos Alberto Ortíz Aux

Reputation: 3

Can't get excel vba function with two arguments to work

I have this function in Excel Vba:

Function split_std(cell As String, separator As String)

    Dim arr() As String
    arr() = Split(cell, separator)
    MsgBox (arr(0))

End Function

And I am calling it this way:

Sub split_standard()
Set cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8)
separator = InputBox("Please type in the separator of the items in the string")
Dim arr() As String


MsgBox (cell)

split_std (cell, separator)

End Sub

But when finishing writing the call to the function, error: "Expected: =" appears. I already tried by removing brackets, but I can't get it to work. Help please!

Upvotes: 0

Views: 288

Answers (2)

VirtualMichael
VirtualMichael

Reputation: 721

Try this instead:

Function split_std(cell As String, separator As String)
    Dim arr() As String
    arr() = Split(cell, separator)
    MsgBox (arr(0))
End Function

Sub split_standard()
    Dim cell As String
    Dim separator As String

    cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8)
    separator = InputBox("Please type in the separator of the items in the string")
    MsgBox (cell)

    Call split_std(cell, separator)
End Sub

Upvotes: 1

Tim Williams
Tim Williams

Reputation: 166835

Close:

Function split_std(cell As String, separator As String)

    Dim arr() As String
    arr() = Split(cell, separator)
    MsgBox (arr(0))

End Function


Sub split_standard()

    Dim cell As Range, separator As String

    Set cell = Application.InputBox(Prompt:="Please select the cell to split", Title:="Cell Selection", Type:=8)
    separator = InputBox("Please type in the separator of the items in the string")
    Dim arr() As String

    MsgBox cell

    split_std CStr(cell.Value), separator

End Sub

Upvotes: 0

Related Questions