To værdier i en funktion
Jeg har en funktion som returnerer to værdier.Den ene returneres i cellen hvor funktionen er indtastet, den anden skal brugeren udpege via en inputbox.
Jeg troede at jeg kunne gøre således:
Public Function ToResultater(X As Double, Y As Double) As Double
Dim Res2 As Double
Dim rCel As Range
Dim Txt As String
Txt = "Der er to resultater." & vbCr & _
"Udpeg en celle hvor det andet resultat skal indsættes."
ToResultater = X * Y
Res2 = X / Y
Set rCel = Application.InputBox(Txt, "Udpeg destinationscelle", , , , , , 8)
rCel.Value = Res2
End Function
...men det virker ikke!
Nogen med en god idé?
På forhånd tak.