måske kan dette hjælpe, men jeg kan også have misforstået emnet :-)
Sub GiveMeResult() Dim n As Variant Dim s As Long, i As Long, msg As String s = 10 n = ninja(s)
For i = LBound(n) To UBound(n) msg = msg & vbCr & n(i) Next MsgBox msg End Sub
Public Function ninja(x As Long) As Variant ReDim temp(1 To 4) temp(1) = x + 4 temp(2) = x + 7 temp(3) = x + 10 temp(4) = x + 20 ninja = temp End Function
Hey bak :) Kunne bruge dit svar delvist - og strikkede resten sammen. Brugte lidt lists til at hive arrayet ud og transportere det videre, osv. osv.. Bare læg et svar, så får du point.
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
